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GLEVEL1 -Sep- AxX-11 Bliss-32 V4.0-74 P 1 
vit 1e-geb 138s 93:95:85 — HaKENS Bhissede ve On ess wel 
3 1 > wo RORULE DBGLEVEL1 (IDENT = ‘'v04-000') = 
-4 8 
: ¢ hp Toa iad atc Aces haidahat a sales 
; 'e * 
3 § one 1 !e Cope 16H (c) 1978, 1980, 1982, 1984 B * 
; 007 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; 8 B38 ' 7? ALL RIGHTS RESERVED. : 
: 10 10 1 ie THIS SOFTWARE | Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 11 11 7 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 \ \§ 1 !* INCLUSION oF ree ABOVE CoPymicut NOTICE. THIS SOFTWARE OR ANY OTHER ® 
3 1 1 1 !@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
5 14 0014 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 13 Bot? : « TRANSFERRED. : 
: #17 O17 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 18 Hy 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG'TAL EQUIPMENT * 
$ i sd : . CORPORATION. “ 
; 1 0021 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 ¢ 8 ¢ : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
3 'e 
. 1 
: : 88 ¢ ! estate iieiseiiceasineeeaaiisehcnemeci eclectic abana ace aeepniideaiiaad 
3 6 00 1 ie 
oo] te 
3 ; + i! : FACILITY: DEBUG (DBG) 
= = 0031 1 ! ABSTRACT: 
3 g 00 § 1! This module contains all the miscellaneous routines left over from 
; 0033 1! the early days of the debugger. That is, the debugger was mostly 
5 0034 1: rewritten in 1982-1 983 but after the rewrite there were still 
3 5 0035 1! a handful of routines in different modules that were still used. 
3 $ $838 : Rowen routines have all been lumped together in this one module. 
; 38 $038 1} Version: 4.0 
PB OBR iw 
> 41 $044 aoe er by: 
3 $§ sk 1 i Title , May 1983 
: ti Ooee 4 
: o? ae? ' : Require files: 
: <3 $ 1 REQUIRE *SRCS: oo rag © REQ’; 
3 re : q ' LIBRARY ‘*LIB$:DBGGEN.L32'; 
; 29 : : ! Table of contents: 
: 3 185 1 FORWARD ROUTINE 
$ 5 p186 1 dbg$end_of_cmd : NOVALUE ' END OF COMMAND PROCESSING ROUTINE 
PF} 3 01 1 dbgsend_o of. Line : NOVALUE, ' end of Line processing routine 
; 5 1 : 1 dbg$wr ' WRITES data TO MEMORY 
3 56 1 1 dbg$set poe NOVALUE, ' ROUTINE TO INITIALIZE CONTEXT BITS 
: 57 1 1 dbg$inif debug : NOVALUE, ' ROUTINE TO INIT IAL ITE DEBUG UNDER STARLET 


ts 


DBGLEVEL1 16-Sep-19 7: AX-11 Bliss-32 v4. # 74 Pa 
mi 14 b-Sen-1984 93:95:85 — ¥ONeug.ShcSoecrevecs 6331 ~ 
3 8 191 1 dbg$cis_ connecticf : NOVALUE, ! Places ef inte pinout stream 
3 9 138 1 dbg$cis_remove : NOVALUE, i Remove oti = ie "cis 
; @& 195 1 dbgs¢is_ add : NOVALUE, i Add a Link te the ¢ 
s 6) 194 1 dbg$ins ope gges: NOVACUE, 
a 1 Dm seg fa A at ee: 
3 ‘ ' er names 
> 6h 1399 | dbabres: match, | MATCHES STRING. TO A REGISTER NAME 
; & 198 1 dbg$ digit. scan, ! sc strlen alid numeric 
8 4] 1 1 dbes output pst : NOVALUE, ! R ROUT INE TO *oufrut® PSL IN'S SPECIAL FORMAT 
SPP 2B Eo beeper i TeithetCep'ares'tn ceareruntrane ae 
; ; 0 o¢ : dbg$exact_map_to_reg, ; setee ee map Snput address to the address 
Py > @ r user_runtrame 
. oe 06 «1 DBGSLANGUAGE, ! Sreduce nome of given Language. 
: f 8 05 ! DBGSSET_LANG; ! Changes the DEBUG syntax 
i 0 8 1! Externals 
ee 0208 1! 
H 76 0209 1 EXTERNAL wie 
oe aoe EN tae MOURUM 2A Hoga” 
PR OB] | Septet | SEVGADE So ERaad, YoBeE TE Imserver son 
; wline P ! " 
s.6 (CB 0214 1 dbgSpop tempmem: NOVALUE, ! Pop a temporary cane anil 
3 Hy 0215 1 dbg$push_tempmem ' Create a new temporary memory pool 
3 o7 8gi$ : dbg$sta_ §etsourcemod, } Looks up sodule est pointer 
3 ' given the ointer 
s 85 0515 1 dbg$src_type_lnum_source : NOVALUE, ' types a range o source Line nums 
; HY ost? : dbg$src_type_pc_source : NOVALUE, Syose source for a range 
: 88 03 2 dbg$def_pr_entry, i Procedure entry code 
' 
; «89 02 § 1 dbg$get_tempmem, : allocate temporary aonery 
; + 8$$7 ; dbg$ncis_add, : add a CIS to the cis chain 
; 3 0228 1 DBGSCANCEL. Loc _VAL: NOVALUE, ! Cancels '.* and ‘\' 
$ G 0226 1 arch k bro ' CHECKS THE PROTECTION OF A PAGE 
3 oe 0356 ! ° BUSEVENT INIT EALIZATION : NOVALUE, ! Initialize event structures 
3 u 
3 38 8585 } Dees LuSnaUF: WnOVALUE, aise he print butter 
§ ! ocate permanent memor 
; 0231 1 dbesinit-aet det ine: NOVALUE, ; Initializes define sett ings 
: 160 0588 Goes ini t-menory: NOVALUE. i INITIALIZES RoDES’® nr” POOL 
: 191 0 ¢ } Sebe Tat ANDY UE NOVALUE.. pds 74 seareh, settings 
; nce 
3 108 1 Omeu t NOVALUE, ! Switch to new oe ., 
: 1046 § 1 dogéncis. 
: 105 0 38 (1 dbg sPiRse trans_f ! presslote vette 
> 106 39 1 0B SPARSER_SET “Mbit : NOVALUE, i t up pars table for new Language 
; 107 40 1 rint : NOVALUE, . oSimk TED SUFFERED OU TPUT. 
188 ee pee eae Patan 
: 110 “§ 1 seat sect, : ea Reser THE PROTECTION OF A PAGE TO READ ONLY 
; rel_memor ‘ ' Release memo 
: Me 45 1 DBGSREL_TE NOVALUE, ' Release all tempor ar memory 
a $F $6 1 DBGSRST-TEMP_ RELEASE. NOVALUE, ' Release cenporaty RS entries 
7 (116 0247 1 dbg$set_define_def: NOVALUE , ! Initializes DEFINE data struc 
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GLEVEL1 16-Sep-1984 01:27: AX-11 Bligs-32 V4.0-74 
vee 12286871382 93:95:88 DEBUG. SRC IDBGLEVEL . 3:1 
s 399 rk 1 dbg$set_define lvl: NOVALUE, ! Sets define level back 
bt 8 49 1 DBGSSET"MOD_DEF, ! initializes mode settings 
= ? 1 dbg$set_mod_ ivi, ! SETS MODE pointer 
. 3 8 1 cbasset out def : NOVALUE, ! Initializes OUTPUT config. 
9 ¢ 1 DBGSSET-SEARCH_DEF : NOVALUE, ! inititialize search settings 
; 120 1 dbg$set_search lvl: NOVALUE, ! Sets search level back 
s Yea 4 1 DBGSSET_STP_DEF, : zaietes tees step settings 
- s ¢ ss dbg$sta_setcontext : NOVALUE, ! Sets registers context 
;.% 2$ 1 dbg$sta_symname : NOVALUE, ! Get symbol’s name 
: 126 8 ~~ for$cnv_in_defg, ! converts a Wlooteng or real 
3 129 58 1 smg$create_key_table, ! /Initialize data structures 
te § 59 (1 smg$create_virtual_keyboard, ' \ used for keypad input. 
3 7 60 1 eyestentes. ! Translate logical name 
; 128 61 1 dbg$sta_symvalue : NOVALUE, 
: 129 $¢ 1 dbg$free_mem_left, ! Longwords remaining in free storage. 
; 150 65 1 dbg$nmake_arg_vect, 
s 351 64 (1 dbg$nout_info, 
* é 65 1 for$cnv_out_i, ! Converts integer to ascii string. 
eS 0 66 1 abgsnpathdesc_to_cs : NOVALUE, ' Get full name of data item 
. ¥ 0267 1 LibSget_ef ! Get event flag 
; ; 5 o ; Libs ree_ef; ! Free event flag 
: 137 70 1 EXTERNAL 
; 138 9 71 «1 dbg$gb_set_break_flag: BYTE, ! Flag set to true when parsing 
: i> 0 Le 1 : a SET BREAK command. 
3: 140 0273 1 dbg$gb_radix: VECTOR(3,BYTE), ! Radix settings 
3 6141 0274 1 dbg$gl_context: BITVEC _ CONTEXT WORD 
: 148 0275 1 dbg$gl“developer: BITVECTOR Developer flags ; 
> 14 0 26 1 dbg$gl-ind_com_file: REF VECTORL.BYTE { Points to counted string with 
> 144 534 1 : indirect command file name 
3: «(145 0 8 1 dbg$gl_inpfab: BLOCK C, BYTE], ! FAB FOR ‘INPUT’ 
; 146 0279 1 dbg$gl_inprab: BLOCK BYTE] ! RAB FOR ‘INPUT’ 
: 147 0280 1 dbg$gl-outpfab: BLock ¢, Bytes, i FAB FOR ‘OUTPUT’ 
; 148 0281 1 dbg$gl_outprab: BLOCK [C, BYTE], ' RAB FOR ‘OUTPUT’ 
3; 149 OSes 1 dbgsat_sym ead, ' LIST HEAD FOR SYMBOL TABLE 
; 150 02835 1 dbg$gl_global_define_ptr, ' Head of DEFINE List for 
s 151 asee 1 : Lobatly defined symbols 
: 138 0285 1 dbg$gl_local_define_ptr, ' Head of DEFINE List for 
: p86 1 : locally defined symbols 
3: «154 bss 1 dbg$gi_lis_ptr 
: 155 0288 1 dbg$gl"key-table_id, ' Used for DEFINE/KEY 
: 156 0289 1 dbg$gl"keyBoard_7d, ! Used for DEFINE/KEY 
3 13e 0 + : dbg$gb_keypad_input: BYTE, TRUE if ye are trying to do 
3 : eypad input. 
3; 159 4 1 dbg$src_term_width, : Terminel set w dth 
; 160 95 1 dbg$gb_exc_bre_flag: BYTE, ! TRUE during an exception break 
: 193 3 ! dbg$gb_go_arg_flag: BYTE, TRUE {there is an argument 
3 : o GO. 
: 188 38 1 dbg$gl_help_input ! Pointer to HELP input 
3: 164 97 1 bg$gb_search_ptr: REF VECTORC,BYTE], |! Pointer to search structure 
3: 165 38 1 dbg$gb_mod_pt EF VECT -BYTE), ! Pointer fo the mode structure 
: 166 1 dbg$gb_set_module flag: BYTE, ' TRUE during SET MODULE command. 
; 16 00 1 dbg$gb_resignal: BYTE, ! FLAG FOR RESIGNALING EXCEPTIONS 
; 168 7 dbg$gb_take_cmd: BYTE, ' FLAG wien SAYS CONTINUE TO ACCEPT COMMANDS 
3 19° § 1 dbg$gw_locingth: word : Length ield of command override type 
: 170 1 dbg$gi-dimen(st : vECfor, i FORTRAN dimension List 
3 wr 04 1 dbg$gl_nest_level, : Nesting level of subscripts 
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SET SOURCE/MODULE= command. 

Holds pointer to directory 

List during 
SET SOURCE dir-List 
command. | 

left margin for source display 
at margin for source display 
DEBUG control bits 

OVERRIDE LENGTH 

NEXT Location TO DISPLAY 
LANGUAGE INDEX 
Context regs save area 
current run frame 
module pointer used by 
dbg$type_cmd. 
Contains next Line num to 


7 5 dbg$gl_nest_stack: VECTOR, ' Stack of saved subscripts 
78 Og dbg$gl_search_verb, ~—s oF itpeane execution tree 
. or 
75 08 dbg$gl_set_source 
76 9 dbg$gl “set sources, 
r fi dbasattises vetions | TISVPESRPELoRESRPoREo*e**#9 
79 i dbg$gl-loctyp, Z i command sounetas type. 
F qbasal df tttyp, type given in SET TYPE. 
15 doasalcith 7% senentic stack cies Pech ter iekne ota | 
316 dB SeB-STP_PTR : REF EVENTSSTEPPING_DESCRIPTOR, ! POINTER TO CURRENT STEP TYPE 
1 dbg$gl_step_num, number of steps to take in single step mode 
15 Spasat Logtab > BLOCK C .BYTE) YAS for LOG file eee 
dbg$gl-cishead : REF cis$link, Head of command input stream | 
dbg$gl_modrstptr2, Holds module pointer during 
TYPE command. 
dbg$gl_module, Hold module pointer durin 


dbg$gl_dirlist, 


dbg$src_left_margin, 
dbg$src_right_margin, 
dbg$gv_control : dbgScontrol_flags, 
dbg$gw_gblingth : WORD, 
dbg$gl_next_loc, 

dbg$gb_language : BYTE, 
dbg$reg_values : VECTOR, 
dbg$runframe : BLOCK C, BYTE), 
dbg$src_next_modrstptr, 
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dbg$src_next_lnum, 
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07 4 typed if no Line num is | 
08 34 specified in the TYPE | 
09 34 command. 

10 34 Srrere next _stmt, as above with stmt num 

11 34 DBGSGL_GET_LEX Holds name of current get lex routine 

1 3 DBG$GL-PARTBPTR : VECTOR, List of parse table addresses 

1 3 DBG$GL_REDUC_RT, Name of action routine for a syntax 

14 3 dbg$gb_def_out : VECTOR C,BYTE], Current OUTPUT configuration 

15 3 dbg$qw_dflfleng : WORD, The length specified in a SET TYPE statement. 

16 3 rst$start_addr: REF rst$entry, Pointer to the module chain (MC). 

17 35 dbg$gl_asci_len, Length of ascii string. 

18 35 dbg$gb_loc_fype: BYTE, TYPE OF LAST LOCATION EXAMINED 

ih 35 dbg$gl_csp_ptr, ointer to current scope 

20 35 dbg$gl-last_loc, URRENT LOCATION 

$3 32 dbg$gl_last_val; CURRENT VALUE 

6 35 ! Link symbol saying whether we are Linking a debugger to run on a 

$¢ 33 version system. 

26 5 EXTERNAL LITERAL 

e? 36 dbg$gl_3b_system: WEAK; 


| 


Oooo 


AWWWAAWAA AANA AWA N ANNAN NA 


SS 


= 
wis 
C009 08 SIN NN NIN NN NIAAA AAO 


WR SO OONAOUES WN" OOONOU ES wr 


Pornsfrenononenonefrorerty 


PAEXQEMAMMAAMAAMNMVIGE EE 
2.00 02 C0 Co 


oo 
MEW —O OONAOUS WI —"OVOOne 


GOOCOCOCOCOCOOSGCOCOOO COC OCOCOOOCOOOOCOOOOOOOOO 


WANA. AAA AAAI AAI 


OOOOWOOO0OO@@ 
DWNOVUVEWN "OC OOnNOuse 


Mormon fenonopofery 


cS 


bese $ep-1984 01:27: AX-11 Bliss-32 V4.0-74 Page 5 
14- ~307 1382 04:60:08 DEBUG. SRC DBGLEVEL -B32;1 . (2) 
1 sea ~ PY peat DBGSNCOB_PATHDESC_TO_CS(pathname,name_string) : NOVALUE = 
MAP pathname : REF pth$pathname; 
LOCAL 
name_vector : REF VECTORC,LONG), 
name “count, 
to -fiene : REF VECTORC,BYTE 
su : REF VECTORE.BYTE), 
poifiter. Length; 
name_vector = pathname(pth$a_pathvector); 
name_vector = name_vectorL.pathname th$b goernent 3 
name_count .pathname(pth b gtotent pathname gthsb. pathcnt]; 
pathnaneLpthsb totcnt] = .pathname pth$ _pathcnt 
dbg$ npathdesc.. _to_cs(. pathname, top. name); 
ER _fame)<0, 
DEC index ERO .Mame_count= 2j TO 0 DO 
oy ~nane = .name_vectorl. index 
ite: -sub_name)<0,8,0> GTR 0 Setiin Length=.length+.(.sub_name)<0,8,0>+4; 
‘ -name string = pointer = dbg$get_ tempmem((. Length/ZUPVAL) +1); 
ch$wchar_a(. length, pointer); 
BECK ingse FROM .name _count=1 TO 0 DO 
sub_name = .name wecterts ingen: 
Rak’ -sub_name)<0,8 R 0 
4 BEGIN 
4 ch$move(.(. sy Ps poner 8,0>,sub Se I plain 
4 pointer = -poin + .(.sub *name)<0, 
4 ch$move(4,UPLIT ‘SyTed? of i cetenieks 
4 ‘Eno *” = .pointer + 4; 
i ee 
chtasvel. (.top_ name)<0, 8,0>,top_name[1}, .pointer); 
1 END; end of routine dbg$ncob_ pathdesc_ to_cs 
eTITLE DBGLEVEL1 
IDENT \v04-000\ 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
20 66 6F 20 00000 P.AAA: .ASCII \ of \ 3 
-EXTRN pees ine DECODE, DBGSINS_ENCODE 
“EXTRN NEWCINE , pbeGsPOP_T EMPMEM 
eEXTRN tits TEMP 
eEXTRN DBGESTA_GETSOURCEROD, 
-EXTRN DBGSSRC_TYPE_L OURCE 
-EXTRN DBGS$S SRCITYPE PC C SOURCE 
-EXTRN DBGSDEF"PR_ERTRY 
-EXTRN DBGSGET TEAPMER 
-EXTRN DBG$N CISA ADD, DBGSCANCEL_LOC_V 
-EXTRN DBGSCHECR_PROT, DBGSEVENT_ INTT LAL IZATION 


D1 
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_OUT, DBG$FLUSHBUF 
Remon DBGSINIT_DEF INE 


“4 
Fa ie {= 
2am 


any 
cee paely 


EAD 
TRN DBG$REDO™ PROT pessael _MEMORY 
DBGSREL_TEMPMEM 
TRN DBG RSTTTEMP RELEASE 

DB =DEFIA EF 


DK DE DK DK DK DC DE DK DK DK DK DK DE DK DK DK DK DK DK DK DK DK DK DK DK 
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B ene Ly 
XTRN DBGSN our thro rORSCNY _OUT_I 
XTRN Mae oa 


EXTRN DBGS$GL-IND_C nat . 

EXTRN DBGSGL ~{NPFABY ~DaESGL INPRAB 

EXTRN DBGSGL-OUTPFAB, DBGSGC_OUTPRAB 

EXTRN DBG$GL~SYMHEAD DaGSGL GLOBAL _DEF INE_PTR 


DEFINE PT 
EXTRN DBGS$GL-LIS_P 44 Re BBGSGL _KEY_TABLE_ID 
EXTRN pBGscL “KEYBOA 


1 
DBGLEVEL1 1s ep-1984 01:27: AX-11 Bliss-32 V4.0-74 Page 
Ritests easeen18Be P3:F5:88 «HELE Shisgeze Ve O-288 . 

.EXTRN DBGS$GL_SET_SOURCE 
sEXTRN DBGSGL~SET~SOURCE2 
.EXTRN DBGSGL-CURRENT PRIMARY 
.EXTRN DBGSGL-LIST, DBGS$GL_LOCTYP 
-EXTRN DBGSGL-DFLTTYP pecs. -G8t TYP 
-EXTRN DBGS$GL-STK bBésee 
-EXTRN DBGS$GL~STEP_NUM 
-EXTRN DBGSPSEUDO_PROG 
-EXTRN DBGS$GL_LO DEF AB DBGSGL_ CISHEAD 
-EXTRN DBGS$GL-MODRSTPTR 
.EXTRN DBGSGL-MODULE, DBGSGL_DIRLIST 
SEXTRN DBGSSRE_LEFT. MAR RGIN 
-EXTRN DBGSSRC-RIGHT MARGIN 
«EXTRN DBGSGV_ CoNsROC. DBG$GW_GBLLNGTH 
-EXTRN DBGSGL-NEXT_LOC 
.EXTRN DBG$GB~ LANGUAGE 
«EXTRN DBGSREG_VALUES DBGSRUNF RAME 
SEXTRN DBGSSRC_NEX xT _MODRSTP 
-EXTRN DBGSSRC_NEXT LNUM 
*EXTRN DBGSSRC- NEXT"S 
-EXTRN DBGSGL_GET lex DBGSGL _PARTBPTR 
.EXTRN DBGSGL-REDOC 


Ex 

-EXTRN RSTS$S ae KDOR, DBGSGL~ ~ASCI_LEN 
EX DBG$GB_LO “TYP 

-EXTRN DBGS$GL— ESP “PTR, DBGSGL_LAST_LOC 
-EXTRN DBGSGL_LAST VAL 

-WEAK DBGS$GL- a SYSTEM 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


07FC 00000 ENTRY DBGENCOB_PATHD SC_TO_CS, Save R2,R3,R4,R5,- 
5E 04 C2 0000 SUBL2 #4. S$ 
51 04 AC 0 0000 MOVL PATHNAME, R1 
57 08 Al 9E 29009 OV 8(R1), NAME_VECTOR 
50 01 Al OA 6 0D MOVZBL 1(R1). RO 
57 740 DE 00011 MOVAL (NAME.VECTOR)CROJ, NAME_VECTOR 
56 61 9A 00015 MOVZBL (R1), NAME COUNT 
56 20 2 0018 SUBL2 RO, NAME_COUNT 
61 0 018 VB RO, RI) 
4002 8F BB OO1E PUSHR #°M<R1 
000000006 oh 02 FB 00 3 CALLS #2. DBEENPATHDESC, TO_CS 
‘ 6A BR $0 C MOV ZBL {Ri0) LENGTH 
5 36 00 0 i mOVL €_COUNT, INDEX 
39 67e5 go 3 1$: MOVL (NAME VECTOR) F INDEX, SUB _NAME 
1 63 8 moyzBL (SUB_RAME 
52 04 ang 9 003 pe ROVAB (RI) CLENGTHI, LENGTH 
50 gS te 04 c7 4 Divs a OM euGtH, RO 
000000006 99 af a6 CALLS “i, DBGSGET_TEMPRER 
08 BC a D 3 MOVL POI[NTER, @NAME_STRING 


RES 


eS 


68 


68 


; Routine Size: 136 bytes, 


88 52 
1D 
59 oree 
6 
15 
50 $2 
01 Ad 
28 i 
os 00000000' gf 
i: i 
01 3AA 0 
Routine Base: DBGSCODE + 
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LENGTH, (POINTER)+ 
(NAME VECTOR) CINDEX], SUB_NAME 
(SUB_RAME) 


(SUB_N 
RO, TSU, 6 lane (POINTER) 
‘ UB “yt 


NTE 
BO RAAS IN OBINTER) + 
iio x, 3$ 


RO. 10) 529 (POINTER) 
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DEBUG. SRC JDBGLE VE: 


GLOBAL ROUTINE DBGSEND_OF _CMD : NOVALUE = 
rere. DESCRIPTION: 


esets all DEBUG context that is exclusive to a single 
DEBUG command. This includes resetting default 

modes from single Line overrides back to the actual default 
modes and resetting a large number of context bits. 


This routine also releases all tenporary memory allocated in the 
course of erecessong the command, and it releases all unreferenced 
RST entries on the Temporary RST Entry List. 


FORMAL PARAMETERS: 
none 


IMPLICIT INPUTS: 
none 


IMPLICIT OUTPUTS: 


The default modes, step-modes, and context bits are established. 
Some global storage is re-initialized and all excess storage is released. 


ROUTINE VALUE: 


novalue 


SIDE EFFECTS: 
none 


BEGIN 


1+ 
! Set the exit toe to true so that if an error octurs during 
! the processing of this routine, that error is perceived 

! as fatal. This routine guarantees the internal consistency 
} of DEBUG, and must succeed or give up. 


dbg$gv_controlldbg$v_control_exit] = TRUE; 


! Clear the ALLOCATE flag. This is set during SET MODULE/ALLOCATE 
} to allow the allocation of additional memory. 


dbg$gv_controlldbg$v_control_allocate] = FALSE; 


! Reset the Print control for DBGSPRINT. And flush out the print 
buffer. 


DBGSPRINT_ CONTROL (DBGSK_PRT_RESET); 
DBGSF LUSHBUF () ; 


Reset mode level to user default level 


dbg$init_modes (override mode, user_def_mode); 
dbg$set_mod_lvl (user_def_mode); 


Reset search settings back to user default level 


1838.1 


H 1 | 
a 1enSep= 1984 92:97:08  Eoeaug. Src HoBGreVELs 035; 1 Pose «1 
E 
| 


007¢ 60000 sENTRY DBGSEND_OF CMD, seve R2,R3,R4,R5,R6 : 0399 | 
56 000000006 00 9% 0 MOVAB DBG$GV CONTROL, : 


; 5 4 $ dbg$init_search (override search, user_def_search); 
; S re dbg$set_Search_lvl (user _def_search); 
; S 439 Reset define settings back to user default level 
3 0 461 dbgSinit define (override define 9 def _define); 
: 331 46 dbg$set_define_lvl (user_def_define) 
3 § 464 dbg$set_context (); 
: 334 0465 | 
; 5 46 DBGSREL_TEMPMEM(); 
: 338 46 ppesnst TEMP R LEA EQ; 
: 465 $gl_Tist = ! Zero out the locations that hold breakpoint setting data. 
; 8 0469 Spasatn tise ‘ = 0; 
3 9 0470 dbesel List 2] = : 
: 340 0471 dbg$gl_lis.ptr = 0; ! Zero pan ptr to command arg list 
; 341 047 dbg$gl"ascT_len = -dbg$gb_ mod -ptrCnode_ length); ! Initialize ascii length 
: ; 047 dbg$gl_loctyp = =-1; ! Zero command override type. | 
3 a? beee dbg$gw-locingth= 0: i And its associated length. 
; «345 0476 dbg$gl_module = 0; ' Zero a lobal used to hold 
: 346 0477 ' modul $ pe nter during 
3; 347 0478 ' SET SOURCE/MODULE= command. 
; 348 0479 dbg$gl_modrstptr2 = 0; ' Zero out gtobat used to hold 
; 349 0480 ! module pointer during 
; 350 481 ! TYPE command. 
gs SS) 48 dbg$gl_set opeures.. = 0; 
3 048 dbg$gl-set-source2 = 0; 
; 0484 dbg$gl"current <orimary = 0; ! Clear the current primary cause there isn't one anymore 
; at $8 dbg$gb_set_modu'e_flag = FALSE; This tag ts TRUE during a SET MODULE | 
; : comman 
; 0487 zerocor (dbg$gl_dimenist, 10 ' Zero storage to hold array dimensions. | 
; 0488 zerocor (dbg$gl_nest_stack, dé), Zero storage to hold array dimensions 
; 0489 ' uring nested subscript evaluation 
3 0490 dbg$gl_nest_level = 0; : Hosta level of subscript expressions | 
3 0491 ; back to zero. 
3 049 dbg$gb_set_break_flag = FALSE; ! Initialize a flag saying whether we 
; 049 ' are in the middle of + process in a 
: Bee ' SET BREAK command. s is used in 
; 495 ! DBGPARSER to resolve ambi uitres 
; 3698 ‘ jnyolyin ng SET . 00 
: 049 i Lag gets set to TRUE in DBE VENT | 
5 0498 ! when we discover we are indeed 
: 0800 ! processing a SET BREAK command. 
; 8203 dbg$sta_setcontext (0); ! Set default register context | 
3 0308 Now cancel exit flag since all went well. | 
3 504 dbg$gv_control(dbg$v_control enti) = FALSE; 
; 0505 END; 

| 

| 


acti disentangle enemies tiie ta a a lil eae on eat 


; Routine Size: 240 bytes, Routine Base: DBGSCODE + 0088 


| 1 
_ DBGLEVEL1 1h-se -1984 01:27: AX-11 Bliss-32 V4.0-74 Page 11 
ives 127808-1 3b 93:99:08 DEBUG. SRCIDBGLEVEL1 .83 31 . 3d) 
66 10 88 9 BISB2 #16, DBGS$GV_CONTROL : 0436 
66 80 8F gf Bi 586 ne, DBG$GV_CONTROL : Gea 
5 0D 0001 PUSHL # 0446 | 
900000006 00 1 FB 0001 CALLS #1, DBGS$PRINT_CONTROL : 
| 000000006 0 FB 0001 CALLS #0, DBGSFLUSHBUF : 0447 
1 0D 9 PUSHL @# + 0451 
DD PUSHL 4 : 
000000006 00 fR 4 CALLS #2, DBGSINIT_MODES 3 
DD B PUSHL # + 0452 
000000006 00 1 FB 00020 CALLS #1, DBGSSET_MOD_LVL ; | 
1 DD 00034 PUSHL #1 + 0456 
§ 0D itt PUSHL # $ 
000000006 00 FR CALLS #2, DBGSINIT_SEARCH : 
| 1 DD 0003F PUSHL #1 + 0457 
000000006 00 1 FB 00041 CALLS #1, DBGSSET_SEARCH_LVL : 
1 0D 00048 PUSHL #1 + 0461 
§ DD OO04A PUSHL 4 : 
000000006 00 FB 0004 CALLS #2, DBGSINIT_DEFINE ; 
or DD 0005 PUSHL #1 + 0462 
000000006 00 1 FB 0005 CALLS #1, DBGSSET_DEFINE_LVL ; 
0000V CF 0 FB 0005¢ CALLS #0, DBGSSET-CONTEXT + 0464 
000000006 00 0 FB 00061 CALLS #0, DBGSREL~TEMPMEM : 046 
000000006 00 0 FB 00068 CALLS #0, DBGSRST-TEMP_RELEASE + 046 
000000006 00 7¢ 0006 CLRQ DBGSGL_LIST + 0468 
000000006 00 D4 00075 CLRL  DBGSGL“LIST+8 + 0470 
000000006 00 D4 00078 CLRL G$GL“LIS_PTR + 0471 
50 000000006 00 DO 00081 MOVL G$GB-MOD-PTR, + 0472 
000000006 00 1 AO 9A 00088 MOVZBL 1(RO), DBGSGL_ASCI_LEN 3 
000000006 00 oi CE 00090 MNEG 1, DBG$SGL_LOCTYP + 0473 
000000006 00 84 00097 CLRW BG$GW_LOCCNGTH > 0474 
000000006 00 D4 00090 CLRL § DBG$GL-MODULE : 0476 
900000006 0 D4 OOOA CLRL § DBGSGL-MODRSTPTR2 + 0479 
00000006 00 D4 000A9 CLRL § DBGSGL-SET_SOURCE > 048 
000000006 D4 OOOAF CLRL DBGS$GL“SET~SOURCE2 + 048 
000000006 D4 90085 CLRL § DBGSGL-CURRENT PRIMARY + 0484 
000000006 00 94 00088 CLRB_ DBGSGB-SET_MODOLE_FLAG + 0485 
28 00 E 0 2C 000C1 MOVCS #0, (SP), #O, #40> DBGSGL_DIMENLST + 0487 
000000006 00 00C6 ; 
0064 8F 00 6 0 2c 000¢ MOVCS #0, (SP), #0, #100, DBGSGL_NEST_STACK + 0488 
000000006 00 0000 ; 
00000006 0 ps 0000 CLRL  DBGSGL_NEST_LEVEL + 0490 
00000006 4 0000 CLRB DBGSGB-SET_BREAK_FLAG + 0492 
000000006 00 et ee a1) DBGSSTA. SETCONTEXT —— 
66 % A C BICB2 #16, DBGSGV~CONTROL > 0504. 
4 OOOEF RET 3 0505 | 
| 
} 


ee 


—EE - COTES sss ~y 


, - 


| J 4 | 
1 -Sep- 127: ° : .0- 
“Voe-500" Ve-8eb-19be 12:97:03  EOteuG. SReisBecevELS «64551 Page iS | 


: y $09 } GLOBAL ROUTINE dbgSend_of_line : NOVALUE = 
; 378 5 3 1 ! FUNCTIONAL DESCRIPTION: 
3 Sy 509 1! Calls dbg$end_of_cmd to reset all single command context. 
; 380 B29 1: Then frees the sforage that was allocated to hold the command 
: s 2} 1} Line. The top Link of the command input stream is removed, but 
3 3 21§ } only if it is of type ‘buffer’. 
; 4 514 1 ! FORMAL PARAMETERS: 
: 5 Bae none 
; 386 B28 1} | 
: 7 ba! 1 ! IMPLICIT INPUTS: 
3 8 \% 1? The head of the command argument List. 
: $09 0520 1 ! IMPLICIT OUTPUTS: 
: 391 0521 1! none 
; 05 § 1! 
; 9 05 1 ! ROUTINE VALUE: 
3: 394 0524 1! none 
; 395 0525 1! 
; 96 0526 1 ! SIDE EFFECTS: 
: 397 0527 1! Defaults are reestablished. Storage for input Line is freed. 
: 398 0528 1! A Link may be removed from the command argument List. 
; 399 0529 1 !-- 
; 400 0530 BEGIN 
; ret Be 1 one 
; ype; 
OBR 
; 404 0534 dbg$end_of_cmd (); ! Perform end of command cleanup 
3 ree S292 dbg$gv_CtonftrollCdbg$v_control_exit] = TRUE; ! Set the exit flag to return to CLI on errors 
; 4607 0537 ! We only want to remove the top Link of the cis if that link is a 
; 408 0538 ! buffer of some flavor. If the top Link is of type cis_rab, it has 
3 ret e344 ! just been put there by an @... command and not yet read from. | 
: (411 0541 type = .dbg$gl_cishead Ccis$b_input_typel; 
: ale B366 IF .type EQL c¥s_inpbut 
3; «(41 054 OR .type EQL cis_acbu 
> 414 0544 OR .type EQL cis-while 
3: 6415 0545 OR .type EQL cis_repeat 
: 416 0546 OR .type EQL cis_ 
3 «417 Beet 
3 233 Bees dbg$cis_remove(); 
3 rit R230 dbg$gv_control(dbg$v_control_exit] = FALSE; ! Reset exit flag. 
3 £32 bae2 END; 
0004 00 ENTRY DBGSEND_OF LINE, fove R2 : 
| 52 000000006 5E MOVAB ODBG$GV_CONTROL, R : 
FFO2 =CF F CALL #0, DBGSEND_OF CMD : 
$2 8 BISB2 #16, DBGS$GV CORTROL > 0535 
000000006 00 00 0001 MOVL  DBGSGL_CISHEAD, R : 0541 


2 
i 
| 
| 
| 


| 
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; Routine Size: 62 bytes, 


; 423 0553 1 


0000v CF 
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DBGSCODE + 0178 


w$ep-198e 12:47: 


MOVZBL 
L 


83 EDeauG. SACSD 
), ,EYPE 

PE, #3 

PE, #5 

PE, Wh 

PE, M6 


DBGS$C1S_REMOVE 
6, DBGSGV~ CONTROL 


s-32 V4. 
DBGLEVEL 


2(RO 
TYP 
1$ 
TY 
1$ 
TY 
1$ 
TY 
1$ 
TY 
2s 
#0 
#1 


83 31 


a 
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] 
| 
| 
3 : 5 ; : } GLOBAL ROUTINE dbg$write_mem (dest_address, src_address, length) = | 
: 4 : $ 1 ' FUNCTIONAL DESCRIPTION: | 
; 428 > 1} Writes a sequence of » waives (b yes) to memory in 
: 429 0 8 77 the user program. se destination, source, and 
: ° 8 23 ! number of bytes to write are all passed as parameters. | 
: 4 ¢ 820) 13 sh PROTECTION OF we yet BYTE TO BE yritren AND THE LAST 
: «4 266 1! BYTE TO BE rg UE. ARE exes H CHECKED. THE STATUS OF BOTH PAGES 
: tr 0565 1! +t MAY BE THE SAME PAGE) IS SAVED. THEN THE VALUE IS WRITTEN 
>; 435 0564 1! TO THE ADDRESS (THE PAGE PROTECTION IS CHANGED DURING THE 
3 t3 820? ! } CHECKING OPERATION). 
: 438 0367 1 7 THEN, IF THE PROTECTION WAS CHANGED IN EITHER CASE, THE | 
: 439 568 1! PROTECTION IS REESTABLISHED. IF EVERYTHING WAS SUCCESSFUL, 
; at 8283 : THE ROUTINE RETURNS TRUE. OTHERWISE, IT RETURNS FALSE. | 
s&h 0571 1 ! Formal Parameters: 
3: 44 Bare 1! dest_address - THE ADDRESS OF THE LOCATION TO BE CHANGED | 
: 444 0575 1! src_address - The address of where the bytes are stored. 
3 ‘2 B28 : } Length - The number of bytes to be written. 
: 447 0576 IMPLICIT INPUTS: 
ne. 
3: 449 0578 1! 
; 450 0579 1: IMPLICIT OUTPUTS: 
3 $33 bens ; THE PAGE PROTECTION MAY BE MOMENTARILY ALTERED, THEN REINSTALLED. 
: 45 0982 1 ' ROUTINE VALUE: 
: $e Bee? ' TRUE OR FALSE 
: 456 0585 1 | SIDE EFFECTS: 
: 657 0586 1! THE VALUE IS WRITTEN TO MEMORY 
: 088 0388 2 OBEGIN 
EG he me 
> 46 0991 dest_address : REF VECTORE BYTE), 
$ re B28 src_address : REF VECTORL, BYTE); 
: 465 0594 LOCAL | 
: 666 0595 prot_status_1, 
: 467 9298 protection. 1 “BYTE, | 
3 $08 59 prot_s tatus 2 
: ry i 298 protection_2: BYTE; | 
: 471 0600 IF ((prot_status_1 = dbg$check_prot (.dest_address, protection_1)) NEQ 0) 
: of 4 omen . ARD ((prot_ status 2 = abgScheck. prot (.dest Sddress + Tlength - 1, protection_2)) NEQ 0) | 
: 47% 08 BEGIN | 
. i: ” 
> 477 0606 PROTECTION HAS EITHER BEEN ALTERED SUCCESSFULLY, OR IT 
: 478 be8 ' DID NOT NEED TO BE ALTERED. NOW WRITE THE VALUE INTO THE 
; $25 ret : j ADORESS. 
+ 681 be10 
| 
| 
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ELSE 


END; 


08 


Sep-1984 01:27: AX-11 Bliss-32 V4.0-74 
1$-se0-1984 93:75:08 — ¥okaue. SeeSdeecevecs 1043, 1 
CHSMOVE (. Length, src_address [0], dest_address ([0]); 
'4¢ 
' IF EITHER OF THE PROTECTION 4 Uses SAY RESET THE 11 bald 
! (TO READ ONLY), THEN RESET THE PROTECTION ON THAT PAGE. 
fgg Pre states! EQL dbg$k_reset_prt 
BEGIN 
gbgsredo_prot (.dest_address, protection_1); 
if gerot.stetus_¢ EQL dbg$k_reset_prt 
BEGIN 
Seg rede pret (.dest_address + .length - 1, protection_2); 
Sa TRUE ! User program updated correctly 
RETURN FALSE 
O7FC 00000 ENTRY DBGSWRITE_MEM, Save R2,R3,R4,R5,R6,R7,R8,- 
5A 000000006 99 9E 00002 MOVAB DBGSCHECK_PROT, R10 
2 000000006 03 25 ih pty i, SP PROT, R9 
E—E D 0018 PUSHL 
56 04 ac 00 ae ot Dest ADDRESS, R6 
ry ; F $018 CALLS - DBGSCHECK PROT 
8 : 09 0 is peor + PROT_STATOS_1 
6 AE 9F 3 PUSHAB PeOTE CT ION. 2 
ee tee eel 
A F ; CALLS #2, DBGSCHECK eng! 
7 9 9 p thy RO, PROT_STATOS 
C 0c AC 2 MOVCS LENGTH, aSRC ADDRESS. (R6) 
2 8 : 6 C CMPL —- PROT vStatus. T, #2 
2 F BNEQ 
4040 F 6B 41 PUSHR on 
69 ¢ fe 43 CALLS <DBGSREDO PROT 
02 2 D1 00048 18 CMBL par T_STATUS_2, #2 
oe AE 9F 4 PUSHAB eR OTECTION_2 
56 C * gt 2 ADDL3 Lgneiye R6; RO 
FF A F PUSHAB 
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Routine Base: DBGSCODE + 0186 


98 bytes, 


; Routine Size: 


2 
DBGLEVEL1 156 1984 01:27: AX=11 Bliss-32 V4.0-74 Page 17) 
VOet O00 12286871382 93:95:08 DEBUG. SRC IDBGLEVEL1 -B3 31 ? (6). 
; 508 06 1 GLOBAL ROUTINE dbg$set_context : NOVALUE = 
: 509 be8? | Pit | 
; $10 $e 8 1 I+ 
Bp ik 639 1 ! FUNCTIONAL DESCRIPTION: 
3 \§ 0640 1! initializes context bits that are necessary for command 
, 3 0641 1! eigragt has P These bits are valid only during the processing 
5 ete ak. i of a single command. They are all reset after each command. 
; 516 0644 1 ! CALLING SEQUENCE: 
s OZ 0645 1! dbg$set_context () 
; 38 Bose 1! 
; 519 0647 1 ! INPUTS: 
; 259 0645 1! none 
oe 0649 1! 
; as6 0650 1 ! IMPLICIT INPUTS: 
. oe 0651 1! the names of the context bits that are to be turned off 
; ese 3026 1! 
3 Sed 0653 1 ! OUTPUTS: 
; 526 0654 1! none 
; 44 0655 1! 
; 528 0656 1 ! IMPLICIT OUTPUTS: 
; 269 0657 1! none 
; 530 0658 1! 
s $3} 0659 1 ! ROUTINE VALUE: 
a >": 0660 1! novalue 
3 333 0661 1! 
; 534 poee 1 ! SIDE EFFECTS: ! 
s 339 0663 1! the context bits are set to false 
s 3s 0664 1 !-- 
3 So7 0665 1 
; 538 0666 2 BEGIN 
; 539 0667 2 dbg$gl_context Cdbg$k_al = FALSE; 
; 540 0668 2 dbg$gl_context Cdbg$k_ail_break] = FALSE; 
; 541 0669 bg$gl_context (Cdbg$k_all_trace]) = FALSE; 
; 542 0670 dbg$gl_context Cdbg$k_all_watch] = FALSE; 
; 543 0671 dbg$gl_context Cdbg$k_br = FALSE; 
; 544 067 dbg$gi_context Cdbg$k_cancel] = FALSE; 
; 545 067 dbg$gl_context Cdbg$k_examine = FALSE; 
; 546 0674 dbg$gl_context dbgsk. language! = FALSE; 
3 por 0675 dbg$gl_context Cdbg$k_mo = FALSE; 
; 548 0676 2 dbg$gl_context Cdbg$k_module) = FALSE; 
3 549 0677 dbg$gl_context [dbg$k_override] = FALSE; 
3; 320 0678 dbg$gl_context Cdbg$k_resignal] = FALSE; 
3 991 679 dbg$gl_context [dbg$k_scope = FALSE; 
3 226 680 dbg$gl_context [dbg$k_search] = FALSE; 
; 2 681 dbg$gl_context Cdbg$k_set greeks = FALSE; 
; 554 8 dbg$gl_context Cdbg$k_st = FALSE; 
; 555 068 dbg$gl_context dbgek.trce calli = FALSE; 
; 556 bose dbg$gl_context ([dbg$k_trace = FALSE; 
by. Dar 5 dbg$gl_context Cdbg$k_traceback] = FALSE; 
; 558 6 dbg$gl_context ([dbg$k_wa = FALSE; 
; 559 6 dbg$gl_context Cdbg$k_trce_brch) = FALSE; 
; 560 pose dbg$gl_context Cdbg$k_threa = FALSE; 
; 561 689 dbg$gl_context [dbg$k_output = FALSE; 
3 266 690 dbg$gi_context ([dbg$k_log = FALSE; 
3; 36 691 dbg$gl_context [dbg$k_source] = FALSE; 
3; 564 0692 dbg$gl_context [dbg$k_margins)] = FALSE; 


000000006 00 


3; Routine Size: 


12 bytes, 


2 
16- $ep-1984 01:27: AX-11 Bliss-32 V4. Page 18 
ease} 8ae 93:F5:88 = PANEL Oh igen se Ve Ones 9 6) 
gog*st content Cdbg$k_maxfiles] = FALSE; 
0000 00000 .ENTRY DBGSSET_CONTEXT, Save nothing 1 0636. 
00 00 FO 00002 INSV #0, #0,7#27, DBGSGL_CONTEXT + 0693. 
04 00008 RET : 0694 | 


Routine Base: DBGSCODE + 0218 
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GLOBAL ROUTINE DBGSINIT_DEBUG: NOVALUE = 


FUNCTION 


BEGIN 
BIND 


SYS_INPUT 
SYS_INP 
SYS_OUT 
SYS_OUT_DE 


LOCAL 


DEF _RADIX 
DEVCHAR: REF BL 
DUMMY: V 
DUMM 


OUTPUTS 
NONE 


EVNT FLAG, 
FILESPEC: DBGS$STG DESC, 


HEADER: REF DEF INESHEADER, 


ITEM: BLOCK[6, LONG), 


LEN, 
OPEN_STATUS, 
OUTPUT_STATUS, 


SDBGINIT_STGDESC: BL oFets orte.; 
37th VECTOR C9, BYTEJ, 


2eCrvec eC eC 


OKC BYTE], 
€TORL256, BYTE), 


o 


o o 
owow cowow 


c~<~c=< c~<c~< 


z24zw-4 Dow 
2—42z2z—4 2=42-—- 
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meme meme 


STATUS, 
VERSION_BUFFER: VECTOR(8, BYTE]; 


! Initialize an area of free storage. 


2 
e 
e 


This routine drives the DEBUG initialization 
INPUTS 
NONE 


LOL Le COLL 
VEFLVLFL - SL PL VL TL 
>>>>r FY PPP 
nnn wMnnm 
AO MOOon 
Dae be ee 
Pe be et ee 


Save the 
D 


pa19ee 12:47:09 


"DBGSINPUT'), 
"DAGS$ INPUT") 

"DBGSOUTPUT'S, 
"DBGSOUTPUT'). 


*SYSSINPUT'), 
UT") 


Default raaix 
Device characteristics field 
Output area for $TRNLOG 


String descriptor 

Header block for define 
tr table. 

Item List for $GETSYI 

re status from SOPEN 


BGSINPU 


String descriptor . 
String in string descriptor 


of the things below will call the memory allocation routines. 


DBGSINIT_MEMORY(); 


! Initialize the bit that says whether we are on a V4 system 
We call the system service $GETSYI s inf 


to find out thi 


nformation. 


AX=-11 BL 
DEBUG. SRC 


j 


s-32 V4.0-7 
DBGLEVEL1.8 


when DEBUG first comes up. 


Save the failing status from $CREATE 
DBGSOUTPUT 


This must be done first since many 
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ies’ Sep-19 :27: AX-11 Bliss-32 V4.0-74 
12-8 08= 138 e 93:95 ‘88 DEBUG. SRC DBGLEVE L1.8 53.1 

Note = the code to cal «yf is commented out because this 

—. d out te, be unreliab S,¢f0uld Pa back k 8.4 variety of things, 


oe "x3, . We are instead 
ust using a hackles” ies las A aA, 


He i oP 


= 0: 
AG, ITMLST=ITEM); 


Version 3 systems will return ''V3.x"' in VERSION_BUFFER. 


; ; bBESEY _CONTROLCDBGS$V CONTROL VERSION 4] = 
((TVERSION_BUFFERCO) EQL™'v') AND ( 1. VERSION -BUFFERC1] EQL °3')) 


ELSE 
} SGETSYI failed. Make a guess that we are a 38 system. 
i DBGSGV_CONTROLCDBGS$V_CONTROL_VERSION_4] = 

LIBSFREE_EF (EVNT_FLAG); 


! Initialize the bit that  &. whether we are on a 3B system. 
! We rely on a Link-time symbol DBGSGL_3B_SYSTEM. 


i 
' 
' 
DBGSGV_CONTROLCDBGS$V_CONTROL_VERSION_4] = DBGS$GL_3B_SYSTEM; 


! Initialize the global which says whether we are trying to do 
keypad input. 


S8GSGB_KEYPAD_INPUT = .DBG$GV_CONTROLCDBG$V_CONTROL_VERSION_4); 


! Open the input device for reading. If the OPENs and CONNECTs cannot be 
‘ done guccesstutly for logical devices ‘DBGSINPUT® and ‘'DBGSOUTPUT', then 
itry ' d "SYSSOUTPUT’. If these fail, signal an error. This 
causes a return to the command Line interpreter 4 the operating system. 


DBGSGL_INPFAB att we = DBG_INPUT yey SE: 
DBGSGL-INPFAB CFABS$B DBG" INP DEV 

OPEN N STATUS = rue TEAB = “DBGSCL_ INPFABS ;- 

i a -OPEN_STATU 


BBCSCL. INPF AB FFABSL _FNA} = SYS_INPUT DEVICE; 
DBGSGL-INPFAB CFABSB-FNS) = SYS" INP DEV SIZE; 

ATUS"= SOPEN (FAB = DBGSGL_INPFAB 

F NOT .STATUS THEN SEXIT(CODE = .STATUS OR FATAL_BIT); 


rom 


-. | 
1358-1386 92:99:08 — EbkeuG. SheSoBgreveLs 104351 ree 5) 


ass 


> 68 0809 END; 

; © 10 

3; ¢ 11 

: 08? \¢ Connect the input file. 

; 68 O84 pecs. =f WORASCRARSL FAB) = DBGSGL INPFAB; 

; 688 815 STATUS”= SCONNECT(RAB = DBGSGL_INPRA 

3 pat 3518 IF NOT * STATUS THEN SEXIT(CODE™= STATUS OR FATAL_BIT); 

; 691 O88 

3 24 3h CREATE and OPEN the output file. 

; 694 88 1 bBGSGL _OUTPFAB tee a G = +44 -SuTPuT DEVICE; 

3; 695 08 § DBGSGL _OUTPFAB T DEV_SIZE; 

; 696 08 OUTPUT_STATUS = ata (FAB : Op acsor _OUTPFABS; 

; 697 0824 i NOT” .OUTPUT_STATUS 

3; 698 0825 THEN 

; 699 08 § 

: 700 08 DBGSGL _OUTPFAB pes Fad = SYS_OUTPUT DEVICE; 

: 701 0828 DBGSGL_OUTPFAB CFABSB_FNS) = SYS"OUT_DEV_SIZE; 

; 70 oe 9 ATUS = SCREATE (FAB™= DBGS$GL ‘OOTP ); 

s TO 830 IF NOT .STATUS THEN SEXIT(CODE = . STATUS OR FATAL_BIT); 

: 704 0831 3 

3; 705 baRs 

: 706 083 

$ 4id4 baRe CONNECT the output file. 

; 709 0836 pecs. =OUTPRABTRARSL FAB) = DBGS$GL QUTEF AB: 

: 710 0837 STATUS” = SCONNECT(RAB = DBGSGL_OUTPRAB 

. Fa 0838 IF NOT .STATUS THEN SEXIT(CODE™ : UeTATus OR FATAL_BIT); 

3 ng 0839 

. Fy 0840 

: 716 0841 ' We need to va 4 this message output till SYSSINPUT, SYSSOUTPUT are 
3 715 oars ! established. Otherwise, DBGSPUTMSG in DBGSFINAL _HANDL does not know 
rig th where to output the message. 

s 718 0845 if NOT .OPEN_STATUS THEN SIGNAL (DBG$_UNAOPEDBG! ..»OPEN_STATUS); 
3 ahs Bae IF NOT .OUTPOT_STATUS THEN SIGNAL (DBCS NONAERESBGO. “0 0, .OUTPUT_STATUS); 
3 es) 0848 

3 § Base Get the terminal width. 

: 726 0851 DEVCHAR = D G3Gt 60 OYTEC ASCE ABS. DEV); 

: 725 B2¢ IF .DEVCHARCDEVS9_T 

; 726 5 THEN 

. tar 854 pceis 

3; 728 895 LOCA 

: 729 2$ DEV bgSc: cronteat LONG), 

: 7 85 INFO 4 VECTO RL4,LONG), 

; 4 1 0838 RETU RN 

3 Fag 860 DEV_DESC 0 = &Xx iene OR . DBGSGL 5 ete CFABSB_FNS); 
EB. 1 DEV DE * BGS6L L ourpeap EF teABSe 

3; 735 § INFO_ = DvI e 

ee INFO_4 = DBG GSShC Tera WIDTH; 

ihe e 864 INFO-4 § = RETU ENGTA; 

: 738 865 INFO-4 = 0; 


A  - 


2 | 
vOu=600- 1E$00r1986 94:97:08 YABGOE Suiggs¥2eye 283 poe 55 | 
; T 


: 739 $6 STATUS = SGETDVI(DEVNAM=DEV_DESC, ITMLST=INFO_4); 

: 740 IF NOT .STATUS THEN SIGNAL(VSTATUS); 

3 ot re END 

: 74 3 ELSE 

> 744 71 DBGSSRC_TERM_WIDTH = 80; 

a: a‘ 

: 74 0874 ! Set the flag that says resignal all exceptions from the user 

; re pee? program except for user-set breakpoints and tracepoints. 
; 730 0 i$ DBGSGB_RESIGNAL = TRUE; 

: Fa 0879 | 
; 738 ttt} Initialize the define settings. 
: 755 O82 DBGSSET_DEF INE_DEF (); 

: 238 ate | 
: 758 0885 ! Initialize the DEFINE symbol table by allocating space for | 
3 39 peas ! the header blocks, and initializing the fields to be zero. 
3 ree et t4 Note that this must be done before DBGSSET_LANG. | 
: 106 0889 HEADER = DBGSGET_MEMORY (DBGSK_DEF INE_HEADER_SIZE_W); 
: 76 0890 HEADER DEFSA_NERT LINE) = 0; 

: 764 Bae, HEADER LDEFSA_PREV_LINK] = 0; 

: 765 o36 HEA DEFSA_DEFINE_LIST) = 0 

3; 766 089 DBGSGL_GLOBAL_DEFINE PTR = .HEADER; 

s 767 0894 EADER’ = DBGSGET MEMORY (DBGSK_DEF INE_HEADER_SIZE_W); 

: 768 0895 HEADER CDEFSA_NERT_LINK] = 0; 

: 769 0896 HEADER CDEFSA_PREV_LINK] = 0; | 
: 770 0897 HEADER CDEFSA_DEFINE LIST] = 0; 

: 771 0898 DBGSGL_LOCAL_BEFINE_PTR = .HEADER; 

BS 

: or 344 Set the default language, namely MACRO. | 
: 776 $908 DBGSSET_LANG(0,DBG$K_MACRO) ; | 
: Oe 0905 | 
; 779 0906 ! Set all the single command context bits to FALSE. These bits refer to | 
: 780 bat ! context that is valid only during a single command, not across multiple 

3 78 BR8 } commands. 

; 38 910 DBGSSET_CONTEXT (); 

: ORs 312 

; A 318 : Initialize the new eventpoint data structures. 

: 788 915 DBGSEVENT_INITIALIZATION (); 

ts 319 

; 231 a8 ! Initialize the Command Input Stream to DBGSINPUT 

: 79 920 DBG$GL_CISHEAD = posses MEMORY (61S ELERENTS¢3) /2UPVAL) ; 

3: 794 921 DBGS$GL-CISHEADCCISSA_NEXT_LINK] = 0; 

: 795 922 DBGSGL~CISHEADECIS$B-INPUT_TYPE) = C1S_DBGSINPUT; 


H 2 
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DBGSGL_CISHEADCCISSA_INPUT_PTR] = DBGSGL_INPRAB; 


osu 


Initialize the OUTPUT configuration 
DBGSSET_OUT_DEF(); 
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! Note = processing initialization files must be done last. If there was 
! an initialization file, add it to the command input stream. For DEBUG, 
! the initialization file is specified by the logical name DBGSINIT, and 
} for SUPERDEBUG, it is specified by the logical name SDBGSINIT. 


dummy £0) = %X'010E0000'+256; 
DUMMYC1) = DUMMY_BUFFER; 


8 
07 
08 


! We need to allocate space for the file name and copy ‘DBGSINIT’ or 

: "SDBGSINIT* into this space. The reason for this is that DBGSCIS_REMOVE 
! will free up the space. Also, fill in the string descriptor to 

' be used in SYSSTRNLOG. Note = do NOT tg Og = this with a Z%ASCID 

' declaration. %ASCID causes the code to be non=-shareable and thus 


degrades performance. 


re 


TH 
a 
s 


BEGIN 
SDBGINIT_STGDESC CDSC$W_LENG 
CHSMOVE(9, UPLIT BYTE(ZASCII 
STATUS = SYS$TRNLOG(SDBGINIT 
IF STATUS EQL SS$_NORMAL 


*), SDBGINIT_STG); 
. DUMMY, 0, 0, 0); 


COOOOOOOVOOOOVOO 


o 


9: 
Cil "SDBGSINIT’), DBGSGL_IND_COM_FILEC1)); 


CSOoooooooooocoo 


WAw 
Oooooo 
SRESOS 
wu 


] = 8; 
DBGSINIT'), SDBGINIT_S16) ; 
TGDESC, 0, DUMMY, 0,70, 05; 


oo 


SAN 


8: 
Cil "DBGSINIT'), DBGSGL_IND_COM_FILEC1)); 
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3 3 980 END; 
; ¢ 2 1 
; $ 9 : ! Initialization is complete and successful. Output the DEBUG header 
; ef 2 : message with the version number and return. 
; 859 9 : IF _ .DBG$GV_CONTROLCDBGSV_CONTROL_SDBG) 
; 860 98 THEN 
; oe) 43 SFAO_TT_OUT('!/ VAX SUPERDEBUG Version 4.0-8!/') 
; 86 990 ELSE 
; 864 991 SFAO_TT_OUT('!/ VAX DEBUG Version 4.0-8!/'); 
; 865 14 
; 866 99 RETURN; 
3; 867 0994 END; 
| 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 | 
54 55 50 FY 49 24 47 & 44 80008 P.AAB: .ASCII \DBGSINPUT\ é 
54 55 50 54 55 4F 4 47 & 44 404 eAAC: .ASCII \DBGSOUTPUT\ ; 
54 55 50 ef 49 246 23 ; 0001 «AAD: .ASCII \SYSSINPUT\ : 
54 55 50 54 5 oF 4 § 9 0020 P.AAE: .ASCII \SYSSOUTPUT\ : 
54 49 4E 49 $¢ 47 4 44 OO2A P.AAF: .ASCII \SDBGSINIT\ $ 
54 49 re 3 49 264 47 4&4 44 0033 P.AAG eASCII \SDBGSINIT\ é 
54 4 4—E 49 st 4 és 44 B08 C P.AA eASCII \DBGSINIT\ é 
54 49 4E 49 26 47 & 33 8 P.AAI tt) JPOSSINETN é 
45 44 52 45 50 55 53 $9 58 41 56 8 09 ef $6 0040 eASCII \!I/\<9>\ VAX SUPERDEBUG Version 4.0-8!/\ : 
30 2€ 34 20 6E 6F 69 72 65 56 47 55 42 0005C § 
F 21 38 20 00068 3 | 
10 OO6F P.AAK: .BYTE 29 3 
56 20 47 55 42 45 44 90 58 41 56 20 4 of 21 00070 eASCII \!I/\<9>\ VAX DEBUG Version 4.0-8!/\ 3 
2F 21 38 2D 30 2€ 34 20 6E 6F 69 73 72 65 0007F 3 
DBG_INPUT_DEVICE= P.AAB 
DBG_INP_DEV_SIZE= 
DBG_OUTPUT BEVICE= P.AAC 
DBG_OUT DEV_SIZE= 1 
SYS- INPOT DEVICE= P.AAD 
SYS_INP DEV_SIZE= 
SYS-OUTPUT BEVICE= P.AAE 
SYS-OUT_DEV SIZE= 1 
-EXTRN SYSSOPEN, SYSSEXIT 
SEXTRN SYSSCONNECT, SYSSCREATE 
-EXTRN SYSSGETDVI 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY DOGSINIT peeus. Save R2,R3,R4,R5,R6,R7,R8.- ; 0695 | 
B 000000006 9 moves svétentt. 
A 6 9E 3 MOVAB DBG$GV_CONTROL, R10 ; 
9 G E 1 MOVAB DBGSGL_INPFAB, R 3 
G E 0001 MOVAB  DBGSGL-OUTPFAB+44, RB 2 
EF E 1E MOVAB DBG_INPUT_DEVICE, R7 : 


2 
DBGLEVEL1 18-5 Sep-1984 7: AX=11 $-32 V4.0-74 Page 25) 
Mirae 14-Sep ats ri 9}: #3 ‘08 DEBUG. S Bhciepecevels 6 31 . Ast 
FE9C 9E 5 MOVAB 56( SP ; 
000000006 5 rs 09 A tt ies 9868 uly MEMORY ; 0746, 
01 AA 01 4 000000006 8F F 1 INSV  #DBG$ B ASTSTEN. #4, #1, DBGSGV_CONTROL+1 : 078 | 
50 01 AA 1 4 €F : EXTZV H4, #1, “DBCSGV CONTROL +1, “RO : 0791 
000000006 g 0 0004 MOVB DBG$GB_KEYPAD NPUT ; 
. Ae : 48 MOVAB 3 INPUT DEVICE =pe6 GL_INPFAB+44 + 0799 
4 ag 9 9 4 MOVB “DBGS$GC_INPF + 0800 
9 OD ° PUSHL + 0801 
000000006 99 if CALLS i, SYSSOPEN : 
: D 5 MOVL RO. OPEN STATUS ; 
1F 5¢ BLBS OPEN STATUS, 1$ + 0802 
3c A9 13, A? : 5F MOVAB SYS ~TNPUT sevice E. pgcsc._ INPFAB+44 : 0805 
4 ag 09 64 MOVB #9, “DBGSGC_INPFAB+ + 0806 
9 DD 00068 PUSHL + 0807 
000000006 00 oN F O06A CALLS a, SYSSOPEN : 
6 0 00 00071 MOVL RO. STATUS ; 
7 56 EB 00074 LBS. STATUS + 0808 | 
7E 6 04 ¢9 00077 BISL3 #4, STATUS = (SP) : | 
6B 1 FB 00078 CALLS #1. SYS ; 
000000006 00 69 9E OOO7E 1$: MOVAB DBGS$GL “INFAB, DBGS$GL_INPRAB+60 + 0814 
000000006 00 9F 00085 PUSHAB DaGSGL ~INPRAB + 0815 
000000006 90 gi i 20088 CALLS 1. SYSSCONNECT : 
07 56 EB 0009 BLBS Atus, 2$ + 0816 
7E 56 04 ¢9 90098 BISL3 #4, STATUS, -(SP) ; 
68 01 FB 0009C CALLS #1, SYSSEXIT : 
68 09 AZ YE 0009F 2s: MOVAB DBs OUTPUT DEVICE. DBGSGL_OUTPFAB+44 + 0821 
08 Ag 0A 90 OAS MOVB 10> DBG$GC_OUTPFAB+S2 ; 082¢ 
D4 AB 9F OOOA PUSHAB pBG$ce OUTP FAB : 082 
000000006 00 or FB OOOAA CALLS #1, CO SSCREAT ; 
52 0 00 00081 MOVL RO, OUTPUT STATUS ; 
iF 52 £8 00B4 BLBS output TATUS, 3$ + 0824 
68 1c) OA . 00B7 MOVAB at buTeuT DEVICE, DBGSGL_OUTPFAB+44 + 0827 
08 AB 0A 90 00088 MOVB epessel.o PFAB+52 : 0828 
D4 AB OF 0008 PUSHAB Cor AR : 0829 
000000006 90 gi FB 00C2 CALLS a". *erettreate : 
07 56 eB 00¢C BLBS. STATUS, 3$ : 0830, 
7E 56 04 C9 OOOCF BISL3 #4, Stars -(SP) ; 
6B 1 FB 00003 CALLS SY : 
000000006 00 Pea As 3E 9006 3$: NOVAB baését ou OUTPr AB, DBGSGL_OUTPRAB+60 ; 0836 
000000006 90 F OOE4 CALLS ih SYSSCONNECT : 
o | 
0? 4 E 6 E BLBS RO, |! AT : 0838 
i 2B 1 £B O00F BIS Be. StArUs  ~ (SP) a ea 
11 ; £8 aor 4$ BLBS  OPEN_STATUS, 5$ : 0845 
DD OOOFB PUSHL OPENTSTATU : | 
E D4 OFD CLRL. 0 =(S : | 
ooco000s 00 VZeFPe BE PR BOOHS Hee ater esSIGNAL : | 
11 ; EB 10C 5$ BLBS aoteut ~STATUS, 6$ > 0846 | 
DD 0010F PUSHL OUTPUT STATUS : 
00028FE3 F a 13 BUSH i 90 : | 
000000006 00 8S FB 113 CALLS Ae PTBSSIGNAL : | 
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AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGLEVEL1.832;1 


pgcscr OUTPF AB+G4 DEVCHAR 
4 $ ae NarAbess RO 
Debs ou RO, DEV_DESC 


D 

# 

DBGSSRC_TERM QIDTH, INFO_4+4 
RETURN CENGTR, INFO_4+8 

INFO_ 4 


4 

E 

YSS$GETDVI 

TATUS 

S, 8$ 

1B$SIGNAL 

0, DBGS$SRC_TERM WIDTH 

, DBG$GB_RESIGNAL 

; DBGSSET_DEFINE_DEF 

#1, DBGSGET_MEMORY 
EADER) 


8 (HEADER) 
HEADER, DBGS$GL_GLOBAL_DEF INE_PTR 


#1, DBGSGET_MEMORY 
(HEADER) 


ROBOYDBiI VCH 1 I 


—~BzBVEr 
xr—Wo 


8 (HEADER) 
HEADER, DBGSGL_LOCAL_DEF INE_PTR 
#2, DBGSSET_LANG 


TLL 
#0, DBGSSET" CONTEXT 
ay DBGSEVERT_INITIALIZATION 


#1, DBGSGET_MEMORY 
RO, DBGSGL_CISHEAD 
RO) 

(RO) 
Sar 
a sepesre BuMMY 
DUMMY_BUFFER, DUMMY+4 


LE 

(+2 
SDBGINIT STG SDBGINIT STGDESC +4 
#1, DBGSGV_CONTROL, 9$ 
#9. SDBGI 
#9. P.AAF, SOBGINIT_STG 
-(§P) 
(SP) 
DUMMY 


Pee Se Ge Ge Ge Se Be Se See Ge Se Ge Se Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Bete Ge Ge Ge Ge Se Fe Ge Ge Ge Se Ge Ge Be Ge Ge Se Ge Se Ge Ge Ge Ge Be Se 


asin 


; Routine Size: 671 bytes, 


bs 
14S 
7E pe 9 
44 A F B 
000000006 00 Fe 
6 D 
1 6 01 
4E 1 B 
50 000000006 g D 
+4 44 
01 AO oF OA 9 ‘ 47 
HY Ag 08 Q dF 9$ 
24 AE 8 A 2 
of 8 ss 
7E D4 00258 
F8 AD 9F 00250 
7E Bs 026 
44 AE 9F 0026 
000000006 00 98 fe 026 
56 DO 0026C 
01 38 Di 00 of 
1 is 0272 
50 000000006 00 00 00274 
60 08 90 8 78 
01 AO 40 A? 08 28 0027E 
7E D4 00284 108: 
0000v CF 01 FB 88 86 
6A 01 3 0288 11$: 
48 A? 9F 0028F 
03 11 00292 
6B A? 9F 00294 193: 
000000006 00 01 FB 00297 158: 
04 0029E 


Routine Base: DBGSCODE + 0224 


‘2 +08 AX-11 BL Ligsese v4. 
217: DEBUG. SRC DBGLEVEL1. 


My a 


bisa IND_COM_FILE, RO 
a9 PAG, 1(RO) 


SDBGINIT_STGDESC 
iP -AAH, SBBGINIT_STG 


=(SP) 
DUMMY 


=(SP) 

SDBGINIT_STGDESC 

#6, SYSSTRNLOG 

RO, STATUS 

STATUS, P 

DBGSGL_IND_COM_FILE, RO 
; RO) 

#8, P.AAI, 1(RO) 
-(§p 


#1, DBGSCIS_ CONNECTICF 
Wi, DBGSGV. CONTROL, 12$ 


P.AAK 
#i, DBGSFAO_OUT 


Pete Ge Se Ge Ge Se Se Ge Fe Se Ge Fe Se Fe Se Fe Fe Be Se Fe Se Ge Se Fe Se Fe Ge Ge Be Se Be 


——_—_ a 


If catty 93:95:88 — EbEaUG. SacSbaccevert 39,1 see : 

Bf 0396 ; BEGIN. ROUTINE dbg$ins_opcodes (user_pc_value) : NOVALUE = 
99 

872 $998 E 


0000 99009 .ENTRY DBGSINS_OPCODES, Save nothing : 0995 | 
04 0000 RET + 0998 
; Routine Size: 3 bytes, Routine Base: DBGSCODE + 04C3 


N 2 
16-Sep-1984 AX-11 Bliss-32 V4. Page 29 
14-$ 3ep 1 1382 9}: qf 88 DEBUG. SRC DBGLEVEL “233, 31 ° (3) 
3 ue 0998 ! GLOBAL ROUTINE dbg$conv_r_50( OPWORD, DST_PTR ) = 
3 76 1901 1 / rei Sh tan ad: 
: 877 1 o¢ 1! (His ROUTINE 138 SP RECTAL “PURPOSE RApsoeTOmASC HI CONVERSION 
3; 878 1005 1! UTINE. IT TAKES A LONGWORD CONTAINING 2 RAD WORDS 
; 879 1004 1! CONVERTS THEM TO A 6-character STRING, AND ‘STUFFS THESE 
; 880 1005 ; characters INTO THE BYTE VECTOR WE ARE PASSED A POINTER TO. 
; 88 1007 1 ! WARNING 
3; 88 4 73 THE REST OF THE CODE WHICH INTERFACES TO THIS USES THE 
3; 884 1009 1! LITERAL ‘OP_CH_SIZE* TO REFER TO THIS 6-character STRING, 
; 6885 13% 1! BUT THIS SIZE TS IMPLICIT IN THE CODE HERE. 
; 886 1011 1! CODE IS CHANGED, THE LITERAL MUST ALSO BE CHANGED. JUST 
; 887 101g | CHANGING THE LITERAL IS NOT ENOUGH. 
; «889 1014 1 ! CALLING SEQUENCE: 
; 890 1015 1! dbg$conv_r_50 ( LONGWORD, BYTE_POINTER ); 
: 891 1016 1! 
; 89 1017 1 =! INPUTS: 
; 89 1018 1! OPWORD = - LONGWORD WHICH COmT ates THE 6 RADSO ghergcters. 
; 894 1019 1! Hed enn D COMES FROM THE OP_NAME FIELD OF THE 
3; 895 1020 1! ANY OPINFO DATA VECTOR. 
; 896 1021 1! DST_PTR - A ByTe ADDRESS INTO WHICH THIS ROUTINE WILL 
3 a4 19 ¢ : F THE 6 ASCII characters OBTAINED FROM OPWORD. 
; 899 1932 1! sateen | INPUTS: 
: 4 1982 ! P_CH_SIZE = FROM VAXOPS.REQ, WHICH MUST BE 6 TO MATCH THIS CODE. 
; 90 1027 1 ! OUTPUTS: 
; 90 1028 1! NONE. 
3: 904 H+ 44 1! 
; 905 1030 1! srtecas OUTPUTS: 
; 906 1031 1! THE 6 ASCII chars ARE STUFFED BACK INTO THE USER=SUPPLIED 
: 907 1936 & G. 
; 908 1035 1! 
3; 909 1034 1! ROUTINE VALUE : 
: 910 1035 1! The number of non-blank characters stuffed into 
; 911 1936 1! the output string. 
3 44 1037 1! 
; 91 1038 1 ! SIDE EFFECTS: 
3; 6916 1039 1! SEE IMPLICIT OUTPUTS. 
3: 915 1040 1 !-- 
: 318 1062 2 BEGIN 
; 918 1928 : 
; 919 1044 p 
: 3st ieee DST_PTR : REF VECTORC,BYTE); ' WHERE TO STUFF THE chars. 
: $32 102? LOCAL 
:; 9 1048 non_ plone 
: 9246 1049 de 
; 925 1050 W THE L 
: 9 6 1051 PR : REF VEETORE’ Oey ied: 
: 358 1988 BIND 
: 3 9 1054 DIVTAB = UPLIT(1, %0°50", %0°3100") : VECTOR; 


sintieceaseesiinizaneepaiierinieuisitcseeies alanine ttalposcinatestapahaeiapngicsnen taasteninaibininiiceniciiaicsspetspicanstanlaantil . 


eS ERE CTT MESURE, MO 


; 931 10 § ' JUST EXTRACT EACH OF THE TWO WORDS, CONVERT THEM, 
s 4 ¢ 18 ! AND STUFF BACK THE RESTULS. 

3; 6934 1988 PTR = .DST_PTR; 

s 955 1060 non_blanks = 0: 
; ¥ $ 1061 

3 aH 1006 INCR K FROM 0 TO 16 BY 16 

; 3 He: BEGIN ! DO THE CONVERSION ON BOTH WORDS SEPARATELY. 
: 941 1066 W = .,OPWORD<.K,16>; 
; 94 106 

: 94 1068 DECR I FROM 2 TO 0 DO 

3 944 1069 4 

3 945 1070 4 J = .W/.DIVTABL.1]; W= .W- .J*.DIVTABC.1); 

: 946 1071 4 IF .J NEQ 0 

: 947 1906 4 THEN 

; 948 1073 5 BEGIN 

: 949 1074 § IF .J NEQ %0'33' 

; 950 1075 5 THEN 

; «951 1076 6 BEGIN 

3 226 1077 6 i ad LSS a 37. THEN J = .J + %0°56'; 
; 95 1078 6 J = .J + 20° 

3; 9546 1079 5 | 

; 955 1080 5 J= J + Z0°11'; 

; 956 1081 5 END 

; 957 1086 4 ELSE 

; 958 1083 4 J = %0°40'; 

3; 959 1084 4 

; 960 1085 4 ' AT THIS POINT, A SINGLE char IS IN BYTE O OF J. 
s 961 1086 4 i Stuff the character back and tally up the 

5 906 1087 4 i mumber of non-blank ones. 

s 1088 4 

3 6964 1089 5 IF( ((.PTR)<0,8> = .J) NEQ 20°40" ) 

; 965 + + 4 then 

; 966 1091 4 non_blanks = .non_blanks +1; 

; 967 1998 4 

; 968 1093 4 PTR = .PTR + 1; 

3; 969 1094 ; END; 

; 970 1095 

; 971 1096 END; 

; 972 1097 ' END OF K LOOP. 

3; 973 1098 

: 974 1099 ‘Return the number of non-blank characters 

3; 975 1100 ! we stuffed back. 

; 976 1101 

3; 977 1158 RETURN(.non_blanks) 

; 978 1103 1 END; ! OF conv_r “30° ROUTINE. 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


pp 08D -BLKB 3 
00000640 00000028 00000001 00090 P.AAL: .LONG 1, 40, 1600 : 
DIVTAL= P.AAL 


3 
eggs |E$e99s QU:9%:98  YABSLE SAUSSSd2 VeeO 243 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


00FC 0000 .ENTRY DBGSCONV_R_50, Save R2,R3,R4,R5,R6,R7 
57 00000000" EF i a002 MOVAB DIVTAB, R7~ 
54 08 AC DO 000 MOVL DST_PTR, PTR 
56 D4 9900 CLRL § NON“BLANKS 
2 D4 O000F CLRLsé¥«K 
55 046 ac 10 EF 00011 1$ EXTZV K “6, OPWORD, W 
51 02 D9 0017 MOVL 
59 33 6741 ¢ 0 1A 2$ DIVL Di irABe j. 4 
g 0 6741 C€5 OO0O1F MULL DIVTABLI 
55 38 C2 00024 SUBL2 
50 05 00027 TSTL) J 
if 13 00029 BEQL «6s«OS$ 
1B 50 01 00028 CMPL 6, «#27 
08 3 00 E Bea, «460s «4 § 
03 18 000 BGEG 4 6=«-_-3$ 
50 2— CO 00052 ADDL2 #46, J 
50 09 C¢O 00035 3s: ADDL2 4&9, 
50 09 ¢0 00038 4$: ADDL2 49, 
03 11 00038 BRB 6$ 
50 20 DO 0003D 5$: MOVL #32, J 
64 0 90 00049 és: MOVB J, (PTR) 
20 50 D1 0004 CMPL = J, #32 
02 13 00046 BEQL 
56 D6 00048 INCL NON _BLANKS 
54 D6 O004A 7S: INCL 
CB 51 F4 0004C SOBGEQ Rs 
FFBC 53 10 10 F1 0004F ACBL We #16, K, 1% 
50 56 DO 00055 MOVL § NON.BLANKS, RO 
04 00058 RET 


; Routine Size: 89 bytes, Routine Base: DBGSCODE + 04C6 


Page 31 
’ (9) 


o 3 | 
DBGLEVEL 16-Sep-1984 01:27:02 AXa11 BLigs=32 V4. 0-742 Page 32 


14-Sep-19 DEBUG. SRC JDBGLEVEL1.8 (10) | 


9g0 global routine dbg$octal_valtostg_cvt(value, count) = 

98 1 +4 

98 ! Functional Description: 

984 : Convert a value to an ascii string. The string, when 
+ #4 } printed, displays the octal representation of the value. 
987 i Inputs 
988 ' value = the actual value we are to convert. 

p24 count = the number of characters in the result string. | 
991 i Routine Value . 
838 Bs A pointer to a counted string. 
99 ' Side effects 
994 : Allocates space for the result. This should be 
44 } freed by the caller when he is finished with it. 

997 

998 begin 

999 

000 own 


So 
oo 
_ 


result_ptr : ref vector(,bytel, 


tran_table : vector(8,byte] 
initial( byte( Zascii '01234567')); 


! allocate space for the oteint: 
result_ptr = dbg$get_memory(((1+.count)/Z%upval)+1); 


4 -result_ptr eql 0 then signal (dbg$_nofree) 
else 
! fill in result etesne from right to left. 
decr i from .count to 1 do 
egin 
result_ptrl. {1 = ,tran_tableC.value mod 8); 
ao = value / 
end; 


! fill in the count. 
result_ptr(0) = .count; 


-result_ptr 


ee ee ee ee ee ee ee ee ee ee ee ee ee 
ek et ee ek ee ed dd dd 
BEEPS EFA NIN DRINPINPIPININPIPONYDY) 2 2 OS SS S| SS COOOOO 


CNAME WIN O OONA UNE WIN S$ OOONAUE WN @ O OONO NE WAN SOOONOUS 
=POPIPINPIPIPINI WIWWNIAIIIDIPIPONPINININININPININPINININIDD 2 2 OOO OO OS Ot OO OS SS 


had atabadababatadatatahabalababababatabababababad 


MWVVUNVS Ss eS SONU SSS Se 
FUN QOODNAUEWN—“OODNGNEWN 


end; ! of dbg$octal_valtostg_cvt 


.PSECT DBGSOWN,NOEXE, PIC.2 
00000 RESULT_PTR: 


. LK 4 
37 36 35 34 33 32 31 30 00004 TRAN_TABLE: 
eASCIT =\01234567\ ; 


3 | 
bast Jeie9$s QU:97:98  YABSLE SAUSSSREVEcOS3,, Pome ad 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


| 


000¢ .ENTRY DBGSOCTAL_VALTOSTG_CVT, Save R2,R3 : 1104 

53 00000000' EF ae MOVA RESULT . Ps 3 
50 08 A 1 ¢ ADDL3 #1, COONT, RO + 1131) 
5 4 g¢ f DIVL R : | 

01 AO OF 1 PUSHAB 1(RO) : 
000000006 09 Q1 F 14 CALLS #1, DBGSGET_MEMORY : | 
9 D 1B MOVL RO, RESULT_PTR : | 
2 : O1F MOVE RESULT_PTR: R2 + 1133) 
00028332 8F DD PUSHL #164658 : 
000000006 00 o1 re 3 CALLS a. LIBSSIGNAL ; 
P+ | 
51 08 Ac 01 ¢1 000 2 1$: ADDL3 #1, COUNT, I : 1137) 
15 11 000 BRB 3$ 3 
7E 00 04 AC 94 7A 00039 28: EMUL #1, VALUE, #0, -(SP) : 1139) 
50 50 BE 8 ‘8 00 F EDIV #8. (SP)+. RO. R ; 
614 04 A340 90 00044 MOVB TRAN _TABLECROS, (1)CR2] : 
04 AC 08 C6 004A DIV #8, VALUE t 1140) 
E8 51 £5 0004E 3$: SOBGTR I, ; 
00 83 08 AC 90 00051 4$: MOVB COUNT, @RESULT_PTR 7 1144) 
50 63 D0 00056 MOVL §RESULT_PTR, RO > 1148) 
04 00059 RET : 

; Routine Size: 90 bytes, Routine Base: DBGSCODE + OSIF 


: 1025 1149 1 


Ra aa oe ob ee a een 
1e2Sep-49be 12:47:08 EOcaue. SaeSbaccevecs 083: Page 


global routine dbgSdecimal_valtostg_cvt(in_value_ptr,len) = 


<o 
Bo 
| ewe 
sz 
—s 


! Functional description: 
; cana Converts a value to an ascii string to be printed. 
nputs 
in.value_ptr = points to the place in memory where the 
value is stored. 
len - length in bytes of the value 
Routine value 
A pointer to a counted string with the result. 


by calling dbg$get_memory. 
Side effects ne wre J 


i 
i 
i 
i 
i 
Storage for the result string is allocated dynamically 
i 
; Allocates space for the result. This should be 

Ss 


released by the caller. 
begin 
map 
in.value_ptr : ref bitvector () ; 


local 
value_copy : bitvectorl 128). 
value _ ptr : ref bitvector(l, 
sign_flag, 
string : ref vector(,bytel, 
power _of_two, 
new_string : ref vector(,bytel, 
new_power_of_two; 


! define extended precision add routine which 
! operates on counted ascii strings. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: routine addc(a,b) = 
4 
4 
5 
6 
6 


SSSSESE SSCS SS OSCE 


begin 
map a: ref vector C,byte], 
» : ref vector C,byteJ; 


WN SO CONOUEWN "OO ODONOAUES WN “CO OONOUSWWNH—O0OO~ 
MEUM $9 OONAUS WN 0 OONOAUES AR" OOONOUS WO 


ee ee me em re a me me ee ee ee a ed ed wd od oe dd od wd dt 
ee em a a ad od ed ed wd od dd 2 od dd dd od 
4 DBD tt tat tf tet ert PT PN A BE OLA At Ae ty ye tte 


FRIED IRD RD RR PR a a a a a a a a an in a i i a 9 a = as 2s ss as ss ss ss ts ss ss ss a 


loca 

temp, 

m, 

n, 
067 carry, 
g08 1 resurt : vec tortsb, c -byteds 

own ctable : vector 

070 : initial (bytec*O $31825$30123456789")): 
071 4 'niss ze § larger oF punent 
Ore 5 n= (if .al0) gtr .bf0) then .af0] else .b{0)); 
07 38 ! mis size of snot ier orpumens 
074 9 m= (if .aC0) gtr .bC0) then .bf0) else .aC0}); 
075 98 ! dbg$get posery takes Longuord sizes. 
076 99 result = dbg$get_memory((2+.n)/4+1); 
07 00 carry = 0; 
078 Bt decr i from .n to 1+#.n=-.m do 
079 ; begin 
080 0 resultC.i+1) = .ctableLtemp = 
081 04 .carcye 
Oae 05 (if .al 1 gtr -b(0) 
08 06 then .al.iJ] + 


a 
4 Hi 
3 3 1210 4 
37 1211 4 
oe 
; 1091 1214 4 
; 1938 1215 4 
; 109 1 1 5 
; 1094 1217 6 
; 1095 1 \8 g 
3% 121 

; 109 1220 4 
; 1098 1221 4 
: 1099 1 ; ; 
; 1100 1 

3 1101 1224 4 
3 1196 1225 4 
3; 110 1 $ & 
: 1104 1 4 
; 1105 1228 3 
; 1106 1229 4 
: 1107 1230 4 
3 1108 1231 4 
; 1109 1 ; & 
3 1110 1 ; 
3 1111 1234 

3 1112 1235 2 
34 33 32 31 30 39 38 37 36 35 34 33 


08 


39 


5A 00000000° 


BC 


38 3 


04 


3 
1b-s2p-1986 AX=-11 Bliss-32_v 
12-9 08- 138. 9}: 95: 88 DEBUG. SRC SeGcEVEL 
-b£,i- -m)] 
else . ( yt : be 
carry = temp see acs 85 
end; 
decr i from .n=.m to 1 do 
begin 
resultC. ae = * symcrgrmct 


ae ‘3. “f -6£0] 
else a +e 


cacry = ic%O- i; 10; 


"633.1 


if corey eql 1 then 
begin 


gin 
result(O 
it }: = xe’ Hi, 
en 
else 


begin 
result(0) = .n; 
ch$move(.n 
oveC-na result(1)); 
end; 
result 
end; ! addc 


»PSECT 
ASCII 


DBGSOWN,NOEXE, PIC,2 
31 30 OOO00C CTABLE: \01234567890123456789\ 
36 33 00018 

-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0000 ADDC: .WORD Save R2,R3,R4,R5,R6,R7.RB,R9,R10 
000 MOVAB CTABLE. R16 


So 
~ 


58 


ooo 
meee 
= 
Won 
2-3 
mo» 
oor 
Cc 
z2—aBw 
ow>p 
— 


att 
Mm" > OOF 
ew 
< 
~ 
oo 
r 


mo 
Pw PM 
@ 
an 
@ 
io 
» 
FAS aDaow 
se? © 
ZB Bw2ez 2 
Aad 


VOM PS—POPrFFOgd-LMO 


1 
z 
1 


oo 


Page 35 
. (11) 


1197 


1199 


1 
000000006 90 1 FB 0 5 CALLS #1, DBGSGET_MEMORY 
é Q D ¢ MOVL RO, RESULT 
Ds F CLRL_ CARRY 
50 3 4 § 4 SUBL3. MM, N, RO 
01 Ad 4 MOV 1(R05, R7 
55 : 4 ¢ 4 SUBL ,N, RS 
D 40 MOVL I 
1 BRB 9§ 
51 50 C S$ UBL 3 Ro, Ie R1 
39 0 Bc4 H 005 MOVZBL satis R9 
1 8 BC41 9A 05 V2BL a8 R13, R 
0A 11 0006 B 
59 08 BC40 9A 00065 6$: MOVZBL aB{IJ, R 
51 4 BC41 9A O006A MOV ZBL @ACRii, R1 
51 59 £0 O06F 7$: DL2 Rd, RI 
54 AO A143 ; 00 : OVAB -96(R1)CCARRY], TEMP 
01 A046 6A44 90 0007 MOVB CTABLECTEMP), 1(1)CRESULT) 
31 D4 0007D CLRL 1 
OA 4 D1 0007F CMPL TEMP, #10 
92 19 00082 BLSS = BS 
1 06 00084 INCL = R1 
53 31 DO 00086 8$ MOVL R1, CARRY 
0 Dd? 00089 ~ te 
57 50 01 00088 9$: CMPL i R7 
ce 18 9008 BGEG § 
50 01 AS 9E 000 MOVAB 1(R5), I 
e6 11 00094 BRB 14$ 
07 9 0096 10$:  BLBC  R8, 11$ 
1 04 Bc40 A 000 MOV ZBL eattd, R1 
05 11 0009 BRB 12 
51 08 Bc4d 9A OOOAO 11$: MOVZBL abt 1] R1 
54 DO A14 3 OOAS 12$:  MOVAB  -48(R1)CCARRY), TEMP 
01 A046 6A44 90 OOOAA MOVB CTABLECTEMP), {(1)CRESULT) 
51 04 0008 CLRL sR 
OA 54 01 000B CMPL TEMP, #10 
é 19 0008 BLSS 138 
D6 0008 INCL RI 
53 1 00 00089 13$:  MOVL 1. CARRY 
0? Q F5 OOOBC 14$: SOBGTR 1, 10$ 
01 53 bi 000BF CMPL CARRY, #1 
A 12 O0Ce BNEQ 15$ 
66 52 1 gi ¢ ADDB3 «#1, N, (RESULT) 
01 Ab 1 ; (8 move #49, {(RESULT) 
9 1 CC BRB 16$ 
66 3 9 OCE 15$: VB. N, (RESULT) 
01 Ab 02 Ab 28 0000 MOVC3 N, 2(RESULT), 1(RESULT) 
50 5 p 0007 16$:  MOVL RESULT, R 
4 OOODA RET 
; Routine Size: 219 bytes, Routine Base: DBGSCODE + 0579 
113 1 36 
HY : 3 Copy the value to be examined into a local variable 
116 1239 value_ptr = value_copy; 


H 3 
vOu-600- 1e-Sep-i98e 12:47:08 — EbeauG.SAcSoaGLevEL!. 


See Se Se See Se Ge Ge Ge Se Se Se Ge Se Ge Ge Ge Se Se Be Se Be Be Se Se Be Be Be Be Se Se Be Be Se Ss Se Fe Se Fe Se Se Se Se Se Se Se Se Be 


Page 36 
° (11) 


1390 


1207 


3 
WEHeH9He GUAT YAGI LGsSHE RY OZs, Pome HT 


ch$move (16, .in.value_ptr, .value_ptr); 


! now build up print string representing the 
: oq tevere integer. 
string = dbg$get_memory(1); 
power_of_two = abe get.nenory(1); 
(.string) = ZASCIC'O'; 
(,power_of_two) = ZASCIC'1’; 
sign flag = 0; 
IF Value ptrlBe.len-1] EQL 1 
THEN ! sign bit set. 
BEGIN 
sign_flag = 1; 
' negate number. 
incr i from 0 to .len/4-1 do 
(.value_ptre4*.i) = 
NOT .(.value_ptr+4*.i); 


VFWN—OVOONOUSWN—OOMW 


Ww 


END; 
incr i from 0 to (8*.Len)=2 do 
begin 


! look at the ith bit of the integer. 
Ht gvelue.ptrt.t2 EQL 1 


PAPA MII BE PPE EEE 


N 
! if the bit is set, must add in the 
! appregr vate power of two. 
new string = addc(.string,.power_of_two); 
dbg$rel_memory(.string); 


4 

4 

4 

4 

d 
string = .new_string; 

: END; 


new_power_of_two = addc( 
-power_of_two,.power_of_two); 
dbg$rel_memory(.power_of_two); 
power _of two = .new_power_of_two; 
end; ! —_ 
IF .sign_flag EQL 1 
THEN 
BEGIN 
' un-complement number 
' (we complemented earlier) 
incre i from 0 to .len/4-1 do 
(.value_ptre4*.i) = 
T .(.value_ptr+4*.i); 
' add 1 (we complemented earlier) 
new_string = addc(.str ng 
UPLIT BYTE(ZASCIC '1°S); 
! append minus sign. 
string = Gogrget senory(19¢ +.new_stringl0])/4); 
stringt) 21%, n 
stringl1] = %C°-'; 
ch$move(.new_stringl0)],new_stringl1),stringl2)); 
dbg$rel_memory(.new_string); 


DAA MVMMVIVIUIVIE BELL LLL EE 


NSNNOOO Ono WW 
109 0909 C9 09 C8 SIN ISI SINS SOA AOA OOOO 


new str g(0J; 


ee cc ce ee ce ee a ce ee ee ce ee ee ce ce ee ce ee ce ec ce ce Dc ee ce ce ee ce ce ce ce el ce ce ce ee ee ee ce ee ee ee ee ee ee 
RRR 
SRE LSSSSEARANW=SSe NOUEWN (OO ODNOAUE WN OO ODNAULS WR ODO ONOUS WIN —O 


ee ee ee ee ee em ee ee ee ee ee ee ee ed ed ed od wd od 
ee ce cel ee ce cel cee cel el cel el ee el el el eel cel el el el el cel eel cel cell cel cel cel cel cl cel cel cel cel cecal cel cel cells cece lt cel cell cecal cel cls lls ls cls cel calls 


db $rel_memory(.power_of_two); 
n 


-str 
end; Mot dbg$decimal_valtostg_cvt 


Se 1 
| 
! 


5 | 
an IESEEANE STEHBBGSULSAGREME OE. 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
31 01 O009C P.AAM: .ASCII <1>\1\ 3 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


| 

| 

OFFC 00000 ENTRY DBGSDECIMAL VAL TOSTG_CVT, Save R2,R3,R4,R5,°; 11501 
R6,R7,RB,RO-RIO,R11 : 
5B 000000006 00 H 00 MOV DBGSREL_MEMORY, R11 : 
1 § SUBL #16, 3 

$f : MOV VALUE_COPY, VALUE_PTR : 1239 

67 04 aC 10 2 MOVCS #16, SIN_VALUE_PTR, (VALUE_PTR) > 1240 

1 DD PUSHL # + 1264 
000000006 90 1 FB CALLS #1, DBGSGET_MEMORY : 
6 0 D MOVL RO, STRING : 

01 oD PUSHL #1 + 1245 
000000006 00 gi FB CALLS #1, DBGSGET_MEMORY : 
59 0 MOVL RO, POWER_OF Two ; 

66 3001 BF 3C MOVZWL aig 89, (STRING) + 1246 

69 101 a ¢ MOVZ2WL #12545, (POWER_OF_TwO) + 1247 

5 D4 CLRL _FLAG + 1248 

53 08 At 00 MOVL LEN. R + 1249 
50 53 0 ASHL #3, R3, RO : 
50 07 DECL R F 
51 67 01 50 «EF EXT2V RO. #1, (VALUE_PTR), R1 : 
01 31 b} cMPL R1, #1 : 

55 01 D MOVL. #1, SIGN_FLAG : 1252 

54 53 04 0° DIVL3 #4. 35° R4 : 138 
50 01 cE MINE GL “i, : 

6740 6740 D MCOML (VALUE_PTR)CIJ, (VALUE_PTR)CI) : 1256 

F7 50 54 F AOBLSS R4, 1, -1$ + 1255 

“2 33 $3 ¢ oS ln i 
52 y cE MNEGL “i, I : 

50 67 01 3 cf EXTZV I, #1, (VALUE_PTR), RO > 1261 
01 50 (1 cMPL =O, af : 

14 12 BNEQ 5$ : 

0240 F BB PUSHR #*M<R6,R9> 3 1266 | 

FEAS ce : FB CALLS ; : 

8 D VL RO, _NEW_STRING 3 | 

56 DD PUSHL N : 1267. 
68 1 FB CALLS #1, DBGSREL_MEMORY : 

56 § D MOVL § NEW STRING, STRING > 1268 | 

0D PUSHL POWER_OF_TWO 3 7 71 | 

9 0D PUSHL POWER“OF “TWO ; | 
FE91 gf FB CALLS #2, ADDC : 

A D MOVL RO, NEW POWER_OF_TwO : 

DD PUSHL POWER OF Two : 1272 
68 1 FB CALLS #1, DBGSREL_MEMORY ; 

AD MOVL  § NEW_POWER_OF_TWO, POWER_OF_TWO : 1273 | 


Kk 3 
DBGLEVEL1 16-Se AX-11 Bliss-32 v4. p 39 | 
Mite aka Pi Od tt PRT Pe “ay 
CA 4 £3 QOO9F 6$: AOBLEQ 3 1258) 
i ¢ 2 A3 CMPL sien. ALA. #1 ; 1335. 
4d Ne BNEO F 
53 e € A DIVL2 #4, R3 + 1280 | 
‘ + $F Oboae RNEGL AI. aoe, 
6740 6740 dg op 7$ MCOML (VALUE. PTR)CII, (VALUE _PTR)C1J + 1282) 
F7 50 53 FS 00085 8S AOBLSS R3, 1.77$ + 1581 
00000000' gf 9F 00089 PUSHAB  P.A + 1285 | 
DD O00BF PUSHL STRING + 1284 
= : Q 8 fe howe 4 : NEO STRING , 
6 Bh 00¢8 MOVZBL (NEW STRING). RO > 1287 | 
0 2 CO ooce ADDL He, RO : | 
01 Rs §P 0050 OUSHaB TROD ; 
000000006 90 of FB Goons CALLS 4y DBGSGET_MEMORY ; 
66 68 01 81 OOODF ADDB3 #1. (NEW STRING), (STRING) + 1288 
~— s gB 9A oo0E? ROVE, Fh3, LUSTRING : 1380 
02 Ab 01 AB 20 28 OOOEA novcs nes T(NEW STRING), 2(STRING) ; set 
6B 01 FB oor? CALLS 2 DBGSREL MEMORY : 
59 DD O00FS 9$ PUSHL Pot + 1293 
68 01 FB OO0F7 CALLS DBGSREL _MEMORY : 
50 56 DO OOOFA MOVL $ Thin + 1295 
04 000FD RET : 


; Routine Size: 254 bytes, Routine Base: DBGSCODE + 0654 


3 
DBGLEVEL1 18-52 1984 01:27: AX-11 Bliss-32 V4.0-74 Page 40 
vibes ft 1 3007138 93:95:85 DEBUG. SRCIDBGLEVEL B39:1 . (12) | 
; 1174 1 38 1 ! THE REGISTER E HOLDS ONE ENTRY PER REGISTER. EACH ENTRY IS MADE 
; 1175 1297 1 ! UP_OF ONE LONGWORD. THE FIRST BYTE HOLDS THE CHARACTER 
3 1128 1 38 1 ! THE REGISTER NAME. THE SECOND THROUGH FOURTH BYTES HOLD THE REGISTER 
; 117 1299 1 NAME STRING. A SAMPLE ENTRY FOLLOWS: | 
: 1178 1300 1 i thee 
Py 1 1 79 1 01 1 b SSF SF VZB SBF eS BM OnreOE Bee Dee e zr ee Bs eaeaenes a & cow (SO eS ee we oe oe i 
; 1180 1502 1! ! ! 0 ! R ! 2 ' | 
; 1188 1305 1 
; 1184 1 Be 1 MAC 
3; 1185 M1507 1 register_entr (oer ing? = 
; ie ; 4 : ZCHARCOUNT (STRING), ZASCII STRING, REP 3 = %CHARCOUNT (STRING) OF BYTE (0)2%; 
; 1188 1310 1 BIND 
; Bt 2 : y ! register_table = UPLIT BYTE ( 
3 1191 1 18 1 register_entry ('RO'), 
3 1138 1314 1 register_entry ('R1'), 
3; 119 1315 1 register_entry Re. 
3; 1194 1 1 1 register_entry ('R3'), 
3; 1195 1317 1 register_entry ('R4'), | 
3; 1196 1318 1 register_entry ('R5'), 
3; 1197 133? 1 register_entry ('R6'), 
3; 1198 1320 1 register_entry ('R7'), 
; 1199 1321 1 register_entry ('R8'), 
3; 1200 1356 1 register_entry (‘'R9') 
3; 1201 13235 1 register-entry ('R10'5, 
3 1506 1356 1 register_entry (‘R11'), 
3; 120 3 fe register_entry (‘AP'), 
3: 1204 1326 1 register_entry (‘FP'), 
3 1602 1327 1 register_entry (‘SP'), 
3; 1206 1328 1 register_entry ('PC') ) 
3 1e00 3 ; ' registerentry ('PSL'S): 
: 1508 1331 1 BLOCK C, LONG); 
: 1210 1332 1 
3 isi} 13335 1 +4 
; : \ 1 See : THESE FIELD DEFINITIONS CONTROL ACCESS TO THE REGISTER TABLE 
3 1214 1336 1 MACRO 
HG et: & | 
; ctd_reg_name =0, 24, O2, 
3; 1217 1339 1 REG-CHOENT 0. - 02; 
: 1218 1340 1 
3: 1219 1341 1 !¢¢ | 
3 : $9 : ri} ; : COMMON ASCII COUNTED STRINGS USED IN FAO CALLS. 
71 : 1344 1 | 
a3 1345 1 BIND 
> 1226 1 ry 1 cs_ascii = UPLIT ( ZASCIC ‘!AD"), 
: 1225 1347 1 colon_tab_stg = UPLIT ( ZASCIC *: ‘); 
3 1 $ 1348 1 
3; 1 1349 1 !¢¢ 
3; 1228 1350 1 ! The following macros translate addresses to register offsets and 
3 ; $3 132) ! ! vice versa. 


esti 


2 53 
12786871382 93:95:88 — ¥oKeuG. BacSbaerevec 045.1 rm 
this is.reg (Locat | 


ocat ton) « GEQA dbg$r ynt ame Cdbg$l_ -yser r0J]) AND 
(Clocation) CEQA bgsrunframe dbg$l_user_pslJ))%, 


reg_offset (location) = 
(Location = dbg$runframe Cdbg$l_user_regs]) / %UPVAL2; 


MACRO 
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39 GLOBAL ROUTINE dbg$out_regname( address 
Functional Description 


ano 


SOONAUE WN $ O OONAULS WN $$ O OO NOUS WAR HOOD ONOULS WO 


i Given an address, see if it falls within the current 
! runframe in such a way as one could say that this address 
! corresponds to one of the peneras registers. If this is 
! mot the case, we return FALSE. Otherwise we output the 

i name of the indicated register and return TRUE. 

Formal Parameters: 

i address -the address which we are trying to symbolize 
: Implicit Inputs: 

i The format and use of the register table 

which is local to this module. 

; 

1 

i 

i 

i 


Return Value 
TRUE or FALSE. See above. 


| 
| 
Side Effects: | 
We may output a register name to the output buffer. | 
| 
| 
| 
| 
| 
| 
| 


BIND 


LOCAL register_vector = dbg$runframe C DBG$L_USER_REGS J] : VECTOR; 


reg_index; 
IF( NOT this_is_reg(.address) ) 
then 

return(false); 
reg_index = reg_offset(.address); 


' Check that the address EXACTLY matches one which 
! we currently bind to a register name. 


ee register_vector(.reg_index] NEQA .address ) 
en | 
return(FALSE); 
| 
| 


C009 09 09 SI INN SN NSN SISA AAA A AAA III EE 
MOCO O0OO0 00000 0 0000000 09 00 69 09 09 09 09 SI NINI NII NN NOAA AAA AAO 


co = 


! An exact match has been found. 
' Output the register name and return 
' a success status. 


dbg$pr int ( YL ri ZASCIC “!AC* ) 


register_table .reg_index, ctd_reg_name J); 


return(TRUE); 
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COLON_TAB_STG= P.AAP 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0004 000 .ENTRY DBGSOUT REGNAME ave R2 ; 
52 000000006 09 oF 0092 MOVAB DBGSRUNFRAME a : 
g 62 9 00 MOVAB DBGERUN RARE 6, R : 1392, 
5 04 AC D7 000 CMPL ADDRESS, RO : | 
37 1F 0001 BLSSU_'1$ F 
50 40 A2 9E 0001 MOVAB DBGSRUNFRAME+68, RO ; 
50 04 AC p O016 CMPL ADDRESS, RO : 
2D 1A QOOO1A BGTRU ; 
50 $2 3 Goi¢ OV DBGSRUNE RAME+4 RO + 1396 
50 04 AC C3 O001F SUBL rb : 
50 04 ¢€6 00024 DIVL2 EG_ INDEX : 
51 6240 DE 00027 MOVAL REGISTER VECTORCREG_INDEX), R1 + 1401 
04 AC 51 Di 00028 CMPL R1, ADDRESS 3 
18 12 0002F BNEQ : 
00000000'°EF 40 pF 00031 PUSHAL REGISTER_TABLECREG_ INDEX) : 1410) 
00000000' EF 9F 00038 PUSHAB P. + 1409. 
000000006 00 02 FB 9003 CALLS #2, DBGSPRINT t 1410) 
50 01 D0 0004 MOVL #1. RO : 1412 | 
04 00048 RET : 
50 D4 00049 1$: CLRL = RO + 1413) 
04 00048 RET ; | 


; Routine Size: 76 bytes, Routine Base: DBGSCODE + 0752 


D4 
1ecSep-198e feiir:0s — EpeBu 


vast Bessette 28, 


DBGLEVEL1. 


qQ— 


Implicit inputs: 3 
the VAX machine register table 


: GLOBAL ROUTINE dbg$reg_match (string_desc) = 

4 i Functional description: 

4 Compares a string described by the string descriptor passed 
4 as the routine formal to each of the names of the machine 

4 registers. If the — matches a rep eter name, return the 
4 number of the register (0-16, where 16 is the PSL). Otherwise, 
? return a <1. 

4 Inputs: 

? string_desc - string descriptor to symbol string 

4 

4 

4 


Implicit outputs: 
none 


Routine value: 
The register number 0 - 16 if a match is found. 
-1 if no match is found. 


Side effects: 
none 


BEGIN 


MAP 
string_desc : REF BLOCK C, BYTE); 


BEER ES FW nononononononononnny) 2 2 


CNAWUE WN $0 DONA UE WN 0 ODNAU EWN 0 ODNOUESWN OOOO 


INCR sates from 0 to register_count-1 DO 
IF ch$eql (.string_ descCdsc$w length], ch$ptr(.string_desc Cdsc$a_pointer]), 
-register_tableL.index, reg_ch_cntJ, 
THe ch$ptr(register_tableL.index, reg_name])) 


N 
RETURN . index; 
ND; 


RETURN (-1); 
END; 


ee ee 


a a ek a a ed ed dd od 8 wd od dd 


Fl ek ek Sal ak Salt Dal Dl eke lak ek la tal a ak lak et et et et et et at et et et et 


SLIP IPIA DALLA A LRIPIPIIDM IAIN IA) a a rt rd od td ot 


DADAM UT £ 


003¢ 00000 .ENTRY DBGSREG MATCH, Save R2,R3,R4,R5 
55 04 ac dO 00002 OVL  STRING_BESC, RS 
54 (4 006 CLRL —s INDEX 
00000000'EF44 DF 90 1$ PUSHAL REGISTER_TABLECINDEX) 
9 A 0000F MOVZBL a(SP)+, R 
00000090" EF 4 F 0012 PUSHAL REGISTER TABLE+1C INDEX) 
5 4 BC 20 0001 CMPCS @STRING_DESC, a4(R5), #0, RO, a(SP)+ 


Page 45 
- (14) 


1414. 
1449 


1450 | 


1451 
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1 
: ROVE INDEX, RO 1453 
ss | 
0002E 


; 1447) 


DD 4 F3 28: AOBLEQ #16, JNDEX, 1$ 
0 cf MNEGL #1, R 1456 | 
4 1458 


; Routine Size: 47 bytes, Routine Base: DBGSCODE + 079€ 


F 4 
GLEVEL1 16-Sep-1984 01:27: AX-11 Bliss-32 V4.0-74 Page 47 
vitae) 18-80-1382 93:95:88 DEBUG. SRC IDBGLEVEL -B32;1 . (15) 
GLOBAL ROUTINE dbg$output_psl (value) : NOVALUE = 
i FUNCTIONAL DESCRIPTION: 


Formats and outputs two Lines of s ec ielty 
formatted data contained in the PSL. The fields shown are 


3 3 
i; 1 
3 7 
2 
3% 
3 3 
3; 7 
3 7% 
3; 1 
3 3 
3; 1 
3 7 
3 7 
3; 7 
3% 
3 1 
3 3 
;% 
3; 1 
3 1 
3; 1 
3; 3 
3 1 
3; 7 
3} 
3 1 
3 7 
3 1 
3 7 
3 7 
3; 
3 3 
3 7 
3 1 
3; 7 
3 3 
3; 7 
3 7 
31 
3% 
3% 
3 7 
3 7 
3 7 
3 3 
3 7 
3 
3; 1 
5 Y 
3 Y 
3 Y 
3 7 
3; 7 
3; 1 
3 7 
3 7 
3 % 


compatibility mode 

trace trap pending 

first part done 

interrupt stack 

current access mode 

grevious access mode 
nterrupt priority level 
decimal overflow trap enable 
floating underflow trap enable 
integer overflow trap enable 
trace trap 


NS ee 


condition code 
condition code 
condition code 


SANS NNN PAPA AAAOOW 


rt te tet wert 9 P= RiP Pe SP Ad Sy tl A 


WN SO ODONOUE WN" OVOONOUS WO 
oO<n Ze TNO 


00000 C0 IO 


dbg$Soutput_psl () 


i INPUTS: 
value <The current contents of the PSL 


i IMPLICIT INPUTS: 
i NONE 


OO 


@ > 

“ AZ S Sano Anun—ooeow “ 
co CO 
Bote) 


i OUTPUTS: 
NONE 


i IMPLICIT OUTPUTS: 
NONE 


SANG 


i ROUTINE value: 
NOVALUE 


NWA. A.AA AANA 


i SIDE EFFECTS: 
Two Lines are output to the output device. 


' 
' 
! 
! 
' 
' 
1 
! 
! 
1 
1 
! 
! 
] 
t 
' 
! 
! 
' 
' 
} CALLING SEQUENCE: 
i 
i 
i] 
1 
' 
] 
' 
t 
i] 
i] 
' 
' 
' 
1 
' 
' 
1 
' 
' 
value: BLOCK; 


position_field 
size_field 


SOOOOOCOCoCoOCOOOoOoOoOowOoNO 
RIPIPIM PIPPI IMI IN INIA) at a at rt tt i dd dh 


MACRO 


@® 
® 
a 
nunhnun 
Mmer—@WoO 


psl_field (name, position, size, mode, width, leading_blanks) = 
position, size, mode OR (Leading_blanks “ 4), widthi; 


em em me ee ee ee ee ee ee ee ee ed ed ed nd 


PPA AAAAMMIUIVIVIMIUIMIUT EE BEBE EEE EEE PPP PPP PPLE 


SSPSSSSSS 
z 
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UMEWN—OO® 


a a 
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18-Sep-1984 01:27:03 YAN-11 BLiss-32_V4..0-74 as 
voe-000 


832;1 
DEBUG. SRC JDBGLEVEL. 
14-Sep-1984 
LITERAL . 
ot saispattiels = 8, 
: 151 : 
; 1496 i ri pstetable = UPLIT BYTE ¢ 
2 3S 15291 é. a..%..%, 
; 14 d (CMP, rgdeyte 
oe Sok eae 
: i HE pelctielg (Sande i. ht $}: 
; 1 +h e MOD. e ° a e 
: 16 1359 pst=tield (Pavmon, 22. 3: 1. 4° 
3; 14 > (IPL, _1 
: eos 1359 pstctleld (V,"7, 1: 8 \! 3: 
: i ' pstctield 1 a hp 
. 1 sl. e . “ 1. - Ve ° 
3 141 1 psl-field (N, : . 0 1, 1) 
; 1614 ° (2, ¢, 1, 0, 1, 1), 
ant Be bs ABH Ur On 12 8 AL 3S 
wit SHS IE 
; 1538 BLOCK, "'AD!AXB'), 
141 9 YTE (RASCIC *!AD!AXE 
3 1420 1340 hex_number = UPLIT BYTE CaAscie , EADEAD"D 
ar ; 136) stg_desc = UPLIT BYTE (ZASCII 
; 1 ank 
1054 i ails ential = UPLIT BYTE ( 
; 1425 1545 ¥ 
; 14 *KERN', 
1° ; 1869 TASC EEG 
ie if BEN ER 
: 1 
: 143) 1551 : VECTOR; PSL fields. 
3 16 ; 155 i itle which describes the 2VvC'D); 
: 14 he standard title DV FU IV TN 
: 123s HE iat Fol (ZASCIC *!_CMP TP FPD 1S CURMOD PRVMOD IPL 
: ( 
i ie 1356 dbganey ine “tupir CHASCIC 810225 
; 14 , HE in eon th psl_ steeple” *Zount, node. ft Hetgd EQL decima 
: 1440 1560 THEN 
; 14a 1362 dbgSprint. (hex table f-count, blanks field, blanks, 
1663 1368 eat table scpunte ut a ay Position, field), 
; 1564 . sl ield] 
: 1466 1366 “peletable f° {.count, size_fie 
re ue 
3 144 9 BEGIN d), blanks, 
2) ont masa ory REY tg 
> 145 
: 1436 1572 


H 4 
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1573 -psl_table (.count, yidth. field). 

1574 priv_modes [.value (0, .psi_table b-Fayre ggeition. field). 
1575 -psl_table C.count, size_fieldJ, 63)); 

1 6 END; 

157 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


1 1 18 01 01 1€ 01 10 01 1F OOOFO P.AAR: .BYTE 31, 1, 16, 1, 30, 1, 48, 1, 27. 1, 32.1. -; 
0 g 10 4 31 ; if 4 21 : 18 1 OOOFF ; : 1. iB: 7 2: 2. 3: 4; 33 2 ig ase: 
1 01 20 01 01 20 01 01 20 0010E re oe Re ee we ee Oe ee 
1 10 61 01 01 10 61 O02 01 10 61 00110 > 32, Ss a De ha ie Be Oc ee 
B. Va Yo Se Mie Ba Oo te Me : 
42 58 23 31 44 41 21 O7 0012C P.AAS: .ASCII <?>\!AD! axel : 
Birnie nh ‘ 0134 P.AAT: ASCII <6>\/ADIAD\ F 
20 : Q 0138 P.AAU: .ASCII \ : 
4F 45 4B OO13F P.AAV: <ASCII \KERN\ : 
43 4 45 00143 “ASCII \EXEC\ ; 
38 30 3 0147 “ASCII =\SUPR\ : 
4 0148 ASCII \USER\ : 
50 4 20 50 54 20 50 4D 43 5p 31 34 00150 P.AAW: ASCII \4!_CMP TP FPD IS CURMOD PRVMOD IPL DV FU\ ; 
56 52 50 20 44 GF 4D 32 55 43 20 53 0015F : 
55 46 20 56 46 4¢ 30 49 20 O16 : 
20 56 20 SA 4— 20 20 56 49 20 4 : ASCII] \ IVT NZ V C\<0><0><0> ; 
00 SF 21 02 $188 P.AAX: ASCII <2>\!_\<0> : 
PSL_TABLE= P.AAR 
HE X_NUMBER= P.AAS 
STG DESC= SAAT 
BLANKS= P. AAU 
PRIV_MODES= P. AAV 
.PSECT DBGSCODE.NOWRT, SHR, PIC,0 
003¢ 000 ENTRY DBGSOUTPUT PSL, Save R2,R3,R4,R5 7 1459. 
55 000000006 00 9€ 0000 MOVAB DBGSPRINT,~R : 
4 00000000" EF 9E 00 V BLANKS, R4 : 
AG 9F 0001 PUSHAB P.AAW : 1556 | 
65 1 FB 0001 CALLS #1, DBGSPRINT : 
000000006 00 0 FB 0001 CALLS #0. DBGSNEWLINE : 1557. 
4D Ad 9F 0001 PUSHAB P.AAX : 1558 
65 o1 FB CALLS #1, DBGSPRINT 3 
D4 CLRL UN : 1559 
BS A44 pe 1$ MOVAL PSL_TABLECCOUNT], R3 ; 1360 
é A CVTBL : 1567 | 
1 gf D EXTZV R1, 1(R3), VALUE, RO ; 
02 AS 93 BIB g R3), 415 ; 1560. 
12 1 BNEQ ; 
5 pp A PUSHL RO : 156 
03 A CVTBL 3(R3), =(SP) > 1565 | 
54 0D 0004 PUSHL R4 > 156 
14 EE 0004 EXTV. #20, #4, (R3), -(SP) > 1564 | 


ee — ———_ 


fei O1:27:03 YANGAY GLisg=32 Me 0-743 


te 


Fl AG OF 00047 PUSHAB HEX_NUMBER 
4 mH a ¢ 2s BO SHAL sary MODESCROJ 
7E 8 A 8 § CVTBL 3RSs, (SP) 
54 DD 4 PUSHL 
7€ 63 04 14 cE 6 EXTV 720, #4, (R3), <(SP) 
Fo AG OOF B PUSHAB ¥ g 
65 05 Fe 3$ CALLS #5, “DBGSPRINT 
CO —E F wid, COUNT, 1$ 
04 0006 ET 


DBGSCODE + 07CD 


Cc 
— 


$ 1260 } y } GLOBAL ROUTINE dbg$digit_scan(a,l,nd)= 

; 1466 FUNCTIONAL DESCRIPTION: 

5 1464 1 § 1 i This roytine will scan the g tring pointed A by ‘a’ with 
3; 1465 1 1/ fengsh L* to determine if it is a valid ereit SOreng. 
3; 14 1 1 i will also build a new et totenes for the input 

3 1267 1585 1: 

3 1e08 : ! INPUTS: 

; 1470 1 3 1 / a - address of string 

3 147 1 1 i l- hongth of string 

: O76 : oy : nd = pointer to new S soccer ipter 

; 147 3 IMPLICIT INPUTS: 

; 147% 1594 1 ' OUTPUTS: 

ie ee te thn ame 

; 1279 1397 { IMPLICIT OUTPUTS: 

; 12Bt 1899 1! ROUTINE VALUE 

3 Me 1600 1! 1 = a valid digit string 

3; 148 1601 1: 3- : valid cigs string beginning with a sign + or - 
; \one 1606 ' - not a valid digit string 

: 14 1604 1 ! SIDE EFFECTS: 

3: 1487 1605 1! 

+ 1288 1809 3 cee 

> 1490 1608 builtin cvtsp.cvtp 

3 1491 1609 MAP : ot gner ie F byteJ,nd : ref blockC, sbytel: 

: 1498 1610 5 LOCAL. s,i,dp,dpp.ep.esn.p : vector (40, byte],\n,f,nwl; 

3 red, 1913 BIND max _packed_ size = uplit(31 

: 1495 1818 ' Quick tis, ‘ad a@ problem: this routine was returning ‘‘true’’ on the 
Ms Hee B | strin 

; 1498 1616 IF .L EQL 1 AND (.ACOJ EQL "E* OR .ACO) EQL ‘e’) 

$ 1500 1618 RETURN 0; 

; 130) 1619 

im Ree ast 

; 1304 H ; f = dp=ep=dpp=esn=0; 

; 138 1 : i get £ peesipte trailing spaces 

; 1308 1626 WHILE ‘aCinwl-1) EOL Xc* * 

: 1510 16 § f (nwl = .mwl-1) leq 0 then return 0; 

3: 1511 16 : ohio oF Ai Amite: Leading spaces 

3 121¢ 1630 

tai 1833 BEGIN 

+ 1515 16 g INCR c from 0 to .nwl-1 

; 1516 1634 DO 


iEoseoctoge 01:92:09 Yancy eLiags 32, v4 0742 
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3; 151 1635 al.c) = .al.c+ 

3; 151 1 $ if (nwl = “hut-15 leq §° then return 0; 

; ; 1 : END; 

z } 1835 nd(dsc$w_length] = .nd(dsc$w_length) - (.l-.nwl); 
:1 1 F .aC.i "s* OR. '.! 

: 1252 1849 if et. J eql %C'+* OR .al.i] eql %C'- 

; 1525 1 BEGIN 

: 1859 18¢8 ste 4 

8 1s? ndidseso _dtypel = dsc$k_dtype_nl ; 

4 i 1 1848 nd(dsc$b_dtype) = dsc$k_dtype_nro ; 

:1 § 1651 INCR ¢ from .i to .nwl-1 

: 1286 1688 PO BEG 

: 12 1654 if wal. c] eql %c’.* 

3 15 1655 

1 “tit 

3 n 

3; 1540 1938 return 0 

: 1223 1880 4 * begin 

; 186 1661 4 ae ts 

3 1544 1066 4 dpp = .¢; 

180g 1664 3 te 

: 1329 1665 net .at0d eql %c'd’ or .al.c] eql ac" D' or 
: 1268 1606 al.c] eql %c‘e’ or al.c) eql %c'E' 

+ a: lee 

3 n 

i 1582 1690 “return 0 

3; 155 1671 

1888 1678 “- 

3 else 

3 1338 1er a -af.c] eql %c'+" or .al.c] eql %c'-' 
3 hen 

3 1338 1676 ‘? -esn neq 0 or .ep eql 0 

: en 

| et wie 

; 136@ 1680 4 esn =(if .al.c] eql %c'+' then 1 else -1) 
3 se 

3 1364 1o8¢ 4 : not (.af.c] geq %c'O0" and .al.c] leq %c'9") 
3 en 

3 1208 1684 return 0 

; 120 ' 5 END; 

; 1369 16 ! mow construct scale factor for desc and redo the length 
: 13h 1888 

: 157 16 it, : 0 

: 13h8 1691 —— 
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~ep).n0n -packed_size,p([0]); 


1 
evtsp(i,aCsepetd, max _packed_size,pl0J); 
ox packed.si ws 6 ee in); 
dtdsctu- {length =" x. $ 


USI 
FREGNLSSSGRAL AV SOOO 
SRLERFENLSSS 


=RNINININININIWWINI WAI AIIPIPIPINININI WN BPE BB PI 


woo 


1° aah abval val val va eah eal al 
on 


Ss 


“1); 
= snddsc$b_ scale] - 
dtascsu-| Length] = idvot05) length) - - 


chenover in.p 63,aC. dpp)) 
" i dsc$b _dtype] eql dsc$k_dtype_nl 
hen 
nd(dsc$w_length] = .ndCdsc$w_length] - 1; 


SOAOon 
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' catch all return 


a a dd 
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ce ec ce ce ce ee ee ee ce ce ee ce ee ce ce cel ce cel cel eel cel cel el el eel cel el cel cel ee 
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at aS 
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an 


! End of digit scan 


-PSECT DBGSPLIT,NOWRT, 


0000001F 0018C P.AAY: 
MAX_PACKED_SIZE= 


DBGSCODE ,NOWRT, 
eat SCAN, Save R2, 83, R4,R5S,R6,R7,R8,- 


2 
A 
0 
3 


MOMOon 


; 1578 | 


1616. 
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| ews 
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| ww 
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3 16le Vy 1 ! GLOBAL ROUTINE DBGSMAP_TO_REG_ADDR (INPUT_ADDR, OUTPUT_ADDR) = 

; 181g 17 : 1 +4 

; 191 if : ! FUNCTIONAL DESCRIPTION: 

: 1819 17 § 1! This routine examines the input address to see if it corresponds to some 
: 1620 17 1 } address in the dbg$reg_values register save area maintained by the 

; 1621 17 3 1! routines dbg$sta_setcontext and dbg$sta_setregisters routines. If the 

; 16 § 17 2 address represents some address in the register value save area, then 

; 16 1740 1! the address is mapped to the corresponding address in the dbg$l_user_regs 

> 1624 1741 1! register save area. 

>; 1625 17t6 . | 
> 1626 1743 1°! FORMAL PARAMETERS: 
3; 1627 1744 1! 

; 1628 1745 1! INPUT_ADDR - A longword containing the address on which to attempt 

3 18 3 1708 ’ the mapping 
; 1631 1748 1! OUTPUT_ADDR - The address of a longword to contain the resulting mapped 

3 1086 1749 1! address 

3; 163 1750 1! 

; 1634 1751 1°! IMPLICIT INPUTS: 

; 1635 1736 1! : 

; 1636 1755 1! The address of the register context save area, dbg$reg_values, and the 
3 leet 1738 ; } address of the user runframe register save area, dbg$runframe Cdbg$l_user_regs]. | 
3; 1639 1756 1! IMPLICIT OUTPUTS: 

> 1640 1757 1} | 
3 1641 1758 1! NONE 
; ieee 1759 1! 

3 164 1760 1 ! ROUTINE VALUE: 

: 1644 1761 1 | | 
3 1645 1766 2. An unsigned integer longword completion code 

3: 1646 1765 1! 

3; 1647 1764 1 ! COMPLETION CODES: 
3; 1648 1765 1! 
>; 1649 1766 1! STSSK_SUCCESS (1) - Success. Input address mapped, and mapped address 
: 1650 1767 1! returned. 

3; 1651 1768 1! 
; 1036 1769 1! STSSK_SEVERE (4) - Failure. No mapping. 

3; 165 1770 1! 
3 1654 1771 1°! SIDE EFFECTS: 

; 1655 44 4 1! 

3: 1656 775 1! NONE 

3; 1657 1774 1! 

; 1658 1775 1 Se- 

3; 1659 1078 BEGIN 

3: 1660 177 

: 1661 1778 LOCAL 

3 1686 44 RUNF RAME_ADDRS_VECT : REF VECTOR (,BYTEJ; ! Runframe regs area 

: 1068 iva runframe_addrs_vect = dbg$runframe (dbg$l_user_regs]; 

: 1066 1788 ! Check to see if the input address falls in the register context save area. 

; 1608 Hi IF .input_addr GEQA dbg$reg_values (0) 

; 1670 17 $ -input_addr LSSA dbg$reg_values [17] ! The register vector has only 17 longwords 


1§ 
14 


; 
ep-1984 01:27: AX-11 Bliss-32 V4.0-74 Page 57 
ep-19 4 93:95:08 DEBUG. SRC IDBGLEVEL1 .83 $7 m a} 


osu 


; 1671 1788 THEN 
; 1926 1789 BEGIN 
; 167 1790 
3; 1674 1791 ! Input addr definitely coresponds to some address in the context area. 
; 1623 1736 ! Map if to the user runframe. 
3 187? 1738 -output_addr = runframe_addrs_vect C.input_addr - dbg$reg_values ([0]]; 
; 1679 1738 RETURN sts$k_success; 
; 1680 179 END 
; 1681 1798 ELSE 
; 1o86 1799 BEGIN 
> 168 1800 
> 1684 1801 ! No match 
; 1685 19 
3; 1686 180 RETURN sts$k_severe; 
>; 1687 1804 2 END; 
; 1688 1805 1 END; ! End of dbg$map_to_reg_addr 
0004 00000 ENTRY DBGSMAP_TO_REG_ADDR, Save R2 s 1731) 
52 00000000G 00 9€ 00002 MOVAB DBGSREG VALUES, 3 
51 00000000G 00 9€ 00009 MOVAB DBGSRUNFRAME+4, RUNFRAME_ADDRS_VECT ; 1781) 
50 62 9E 00010 MOVAB DBGSREG_VALUES, : 1785 | 
50 04 AC 01 00013 CMPL INPUT_ABDR, RO $ | 
1B 1F 00017 BLSSU : 
50 44 A2 YE 00019 MOVAB DBGSREG_VALUES+68, RO 3 1787) 
50 04 AC 01 00010 CMPL INPUT_ABDR, RO ; 
11. 1€ 00021 BGEQU§ 1$ 3 
50 62 a 00023 MOV DBGSREG_ VALUES, RO 3 1794 
50 06 AC 50 C¢3 00026 SUBL RO, INPUT_ADOR, : 
08 BC 50 51 C1 00028 ADDL3 RUNFRAME_ADDRS_VECT, RO, @OUTPUT_ADDR : 
50 01 pO 00030 MOVL #1, RO : 1799 
04 00033 RET 3 
50 04 DO 00034 1$: MOVL #4, RO : 1803 
04 00037 RET : 1805 


; Routine Size: 56 bytes, Routine Base: DBGSCODE + 098A 
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3; 1 
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3% 
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3} 
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3; 1 
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3 7 
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3 1 
3 } 
3% 
3 3 
3 1 
| 
3 3 
; 1 
3 1 
3 1 
3 7 
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3; 3 
3 
3 3 
3; 1 
3 7 
3; 7 
3 
3 7 
3 7 
3; 1 
3; 7 
3 3 
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3} 
5 Y 
3 1 
; 7 
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3 7 
3; 1 
7 
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3; 1 
3 
3 7 
3 
3; 7 
3 7 
3 7 
3 
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FUNCTIONAL DESCRIPTION: 

i This routine checks to see if the input address can be mapped to the 

exact starting address of one of the context register value save areas. 
f it can, then the address is mapped to the starting address of the 

corresponding runframe registers. 

i FORMAL PARAMETERS: 

INPUT_ADDR - A longword containing the address to be mapped 


REG_ADDR - The address of a longword to contain the address of 
the mapped-to register 


i IMPLICIT INPUTS: 


SELESRLAVLSSSLES 


—OOONOVLSWN ("OO ONOUS wn O0 


dbg$runframe Cdbg$l_user_regs] - the beginning address of the runframe 
registers 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

! 

' 

' 

: IMPLICIT OUTPUTS: 

} NONE 

i ROUTINE VALUE: 

An unsigned integer longword completion code 

i COMPLETION CODES: 

STS$K_SUCCESS (1) - Success. Input address mapped to register address. 
STSSK_SEVERE (4) - Failure. Input address not mapped. 
i SIDE EFFECTS: 

; NONE 

' 


ALAA PUPINIMPINIPINININY 2 OS es 


ewe 


BEGIN 


LOCAL . 
RUNF RAME _ADDRESS; Address within runframe 
! area 


OU 


! See if the input address maps to any place in the runframe regs 
If ddgsmap_to_reg_addr (.input_addr, runframe_address) 
BEGIN 


! See if the resulting mapped address corresponds exactly to a reg 
! beginning address 


IF ((.runframe_address - dbg$runframe Cdbg$l_user_regs]) MOD 4) EQL 0 


SNS NNN SS NSN SISO OOOOH 
ee ce ee ce ee ed ed a cae ce ee a ee a ee a ec ce a a ee a cd ed el ed ed a i ce ee ee a ee ee ee ee ee ee ee ee ed ee eed 


an 
WEE ANLALAIAPIPIPIPIPINPDPINIIAN AY a a8 tt a tt st nt tt tt tt tt tt tt tt 


at at ot at et ot ot 
NOUEWN OO 


Wwr— 


pet VEL1 


; 178 1 THEN 
; 1708 : BEGIN 
; If 1 : ! Exact match to runframe reg 
: 17 : 1 reg addr = .runframe_address; 
: 1754 1 RETURN sts$k_success; 
: 1755 1 END; 
3; 17 $ 1 END; 
; 17 1 
; 17 : 1 ! No match 
3; 175 1 
; 1799 : RETURN sts$k_severe; 
: 1762 1 END; ! End of dbgSexact_map_to_reg 
vat 3 00000 ENTRY 
5E 4 ¢ ea SUBL2 
E Dd 0000 PUSHL 
04 AC DD 00007 PUSHL 
BA AF 9¢ 4 OOOA CALLS 
$i 3 0000E BLBC 
"oe bee BE 
7E 00 50 01 SR 001C EMUL 
nae: ae a 
08 iF; 4 8 BNEQ 
aa: ce 
04 $00 1 RET 
50 04 00 ete 1$ MOVL 
04 0003 RET 


; Routine Size: 54 bytes, Routine Base: DBGSCODE + 09C2 
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DBGSEXACT_MAP_TO_REG, Save nothing 
#4, SP 


SP 
INPUT_ADDR 
#2, DBGSMAP_TO_REG_ADDR 


R 
DBGSRUNFRAME+4, RO 

RO, RUNFRAME ADDRESS, RO 
#1. RO, #0, =(SP) 

#4, (SP)+, RO, RO 

ry 

RUNFRAME_ADDRESS, @REG_ADDR 
#1, RO 


#4, RO 


Page 1a) 


é. 
1er$ep-198e 12:47:08 EoeauG. SacSoeccevert 1639; Paes) 


; 1764 1 1 ! MACROS: 

; 1765 1 , : 

; 128 1 1! 

: 176 1 1 ! The keyword_table is eoge of four-tuple entries, 

3 178 1 1! 1) the Language index (0 - n), 

; 178 1 1: ¢ the number of characters in the minimal abbreviation, 

; 1770 1 1 ! 3) the number of characters in the language name, 

3 4a! : : } 4) the Language name as an ASCII string. 

3 1798 1 3 1 ! Macro KEY_NAME formats table entries for the language name table. 

3: 1774 1 ,: Fece ay it has three formals: 
3 1775 1 29 1! 1) the ASCII string represent ing a language name, 

3 77 1891 1! $3 the Length of that ASCII string abbreviated, 

3 177 1 35 1! 3) the Language index for that Language 

3; 177 1895 1! 
3; 177 1894 1 MACRO 
: 1790 m 1895 1 KEY_NAME (KNAME, KABBREV, KEQUIV) = 
3 178) ' 36 ' KEGQUIV, KABBREV, %CHARCOUNT (KNAME), %ASCII KNAMEZ; 
: 1783 1898 1 BIND 
3 ree +944 ' LANGUAGE _TABLE = UPLIT BYTE( 
3; 1786 1901 1 KEY_NAME (‘MACRO', » DBGSK_MACRO), 

3: 1787 1906 1 EY_NAME ("FORTRAN', + DBGSK_FORTRAN), 

: 1788 1903 1 KEY_NAME (‘BLISS', - DBGSK_BLISS), 
; 1789 1904 1 KEY_NAME (*COBOL', - DBG$K_COBOL), 

: 1790 1905 1 KEY_NAME (‘BASIC', » DBGSK_BASIC), 

3; 1791 1306 1 KEY_NAME (‘PLI', - DBGSK_PLI), 

3 ime 1907 1 KEY_NAME (‘PASCAL', » DBGSK_PASCAL), 

3; 179 1908 1 KEY_NAME ('C' - DBGSK_C) 

> 179% 1909 1 KEY"NAME ('RPG’, > DBGSK-RPG), 

3; 1795 1910 1 KEY_NAME (‘ADA‘ » DBGSK_ADA) 
: 1796 1911 1 KEY"NAME ("UNKNOWN', , DBGSK-UNKNOWN) , 

: 1797 I31¢ 1 

3; 1798 1915 1 0 ) : VECTOR C, BYTE); 


L1 16-50 Sep-1 AX-11 Bliss-32 v4. Pa 1 
voce 1o78eb- 138s 93:95:03 EORaue Shc Sbecrevecs 635.1 9 28) 
: } 131 } GLOBAL ROUTINE DBGSSET_LANG (LANG_STR_DESC, LANGUAGE_MODULE) = 
i 1806 1916 1 | FUNCTION 
3 1 1917 1! This routine loads the pointers to the current parsing tables 
5 : : 13) : : with those of the new Language. 
:1 1 1 i INPUTS 
3 1 1 1! LANG_STR_DESC = no Longer used Ssiuere 0). Eventually, this 
3 3 1 § 7! parene er should be eliminated (requires 
3 3 13 ing the places this routine is called.) 
3 3 1926 1! LANGUAGE MODULE - i) n ang_str_desc ero this parameter hoids the 
3 ! + 5 ! Language number as defined in DBGLIB.REQ. 
51 1957 1 i ouTPUTS 
3 1 19 ; 1} The Language index of the language to which DEBUG will be set is 
3: 1 19 1! returned as the routine value. 
‘ Hie 
:1 19 é BEGIN 
3 1 19 LOCAL 
; ; 13 ¢ DEF RADIX; 
; ; Change Language setting 
: 18 19 : bacs LANGUAGE = .LANGUAGE_MODULE; 
3 1 i9 DBCSCARSER SET “LANGUAGE. ( (.06G$68 LANGUAGE); 
3: 1 1940 DBGSNCHANGE_TO-NEW (); 
31 1941 DBGSSET_MOD-DEF (); 
3; 1 1308 DBGSSET~ _SIP_DEF (); 
3 \3 oh DBGSSET “SEARCH_ DEF (); 
; \3 Mb ok : Set up the-default radix settings for this language. 
: 18 1907 det radix = bgt nget sirens. radix (db $k_default); 
3; 18 1948 dbg$gb_radix(d _radix_input) det, radi: 
3; 18 1949 dbg$gb_radix bistt3 “radix “output? = gett 
3 H 1329 dbgsgb- radix(dbg$b_radix_output_over) = “Gogsk: ‘default; 
: is 195¢ RETURN .LANGUAGE_MODULE; 
; 18 195 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


0 02 00 00190 P.AAZ: .BYTE 0, 2, 5 : 

4F 52 43 41 4D 0019 ASCII \AACRO\ : 
02 01 001 “BYTE 1 7 : 

4E 41 52 54 oe 1 “ASCII = \FORTRAN\ : 
02 0 1A -BYTE 2, 5 ; 

53 53 ac 4 1A “ASCII \éuISs\ : 
05 02 0 1AA BYTE 5 ; 

4C GF 42 4F 4 1 “ASCII \Cogér : 
09 04 1B “BYTE 4 5 ; 

43 49 1B “ASCII basic) ; 
02 Q 1BA “BYTE 5 ; 

49 4C 1BD “ASCII «= \PLIN : 


ne 


Seer 
Rice 


5 
1e-83b-4882 93:95:83 HRSG Bhi SSaerevery76$5.1 Page 63 
coo fT BBS Bh tude : 
4 1¢C TASCIT \GN ’ ; 
03 iC -BYTE 8, 2, 3 ; 
4 ; 109 ASCII args : 
03 1D “BYTE 9 3 ; 
a 8h fh Baie AT JA : 
6E 57 4F 4E 48 4E 3 106 [ASCII \UNKNOWN\ ; 
0 OO1€ “BYTE 0 ; 


LANGUAGE _TABLE= P.AAZ 


»PSECT DBGSCODE,NOWRT, SHR, PIC,0 


009¢ .ENTRY DBGSSET_LANG, Save R2,R3 : 1914) 
9000000 G 99 E MOVAB DBG$GB_CANGUAGE, R3 : 
0 6 3 0 MOVAB DBGSGB~RADIX, R2 : 
ag 0010 vB ANGUAGE MODULE, DBG$GB_LANGUAGE 3 1938 
9A 00014 MOVZBL bBG 6B LANGUA ° + 1939 
1 FB 00017 CALLS #1, DBGSPARSER SET_LANGUAGE ; 
FB 3 CALLS #0, DBGSNCHANGE_TO-NEW + 1940 
FB 000 CALLS #0, DBGSSET_MOD-DEF + 1941 
FB 000 ¢ CALLS #0, DBGSSET-STP DEF : 1948 
FB 000 CALLS #0, DBGSSET“SEARCH_DEF + 194 
1 DD O003A PUSHL #1 + 1947 
1 FB 00 ¢ CALLS #1, DBGSNGET_TRANS RADIX : 
0 90 0004 MOVE DEF_RADIX, DBG$GB_RADIX : 1948 
90 00046 MOVB DEF RADIX DBG$GB~RADIX+1 t 1949 
01 90 000A MOVB #1, "DBG$GB_RADIX+2 : 195 
08 AC 00 0004 MOVL  LANGUAGE_MODULE, RO + 195 
04 0005 RET : 195 


3; Routine Size: 83 bytes, Routine Base: DBGSCODE + O9F8 
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OONOVUVES WN OOOO 


SSSTERE 


fun-o0 


a a a a a kaa kak a ak a a a ak ak a a os a a a a a a a = 
560 09 Cec . oC SNS 
no 


Mn 


SSSsSSeSeSeSESESSSESSSISS 


WN — SO COnNOufwn—o 


DOOOOOoOVNO 
cow 


WODODDOOO 
@oecece 
uw 


a a a ad dk td ad dt od a a = = a = as as = + 2 ss a 
co 
oO 


SSSSSSSESFSFESS3 
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GLOBAL ROUT! 


FUNCTION 
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49:88 


AX-11 otis 
DEBUG. SRC 


NE DBGSLANGUAGE (LANG_ENCODING) = 


Return a pointer to a {onguag string which is 


the name of the given 
This function exists simp 
translation into one place. 


each language, and it 
TBeSéL 


INPUTS 
LANG_ENCODING = The numeri 
represent 
value that 
store in 
OUTPUTS 


A pointer to a counted strin 
is returne 


BEGIN 


solr. 


e. 
% consolidate this nameing 


¢ encoding used internally to 
the senquaee This is the same 
comes in . OST MODULE records for 
s the same value that we 
LANGUAGE. 


q which names the indicated language 
as the routine value. 


: Just return the desired pointer. 
CASE. LANG_ENCODING FROM DBGSK_MACRO TO DBGSK_UNKNOWN OF 


COBGSK MACRO): 
RETURN UPLIT BYTE(ZASCIC 


COBGSK FORTRAN): 
RETURN UPLIT BYTE(ZASCIC 


COBGS$K BLISS): 
RETURN UPLIT BYTE(ZASCIC 


COBG$K_COBOLIJ: 
RETURN UPLIT BYTE(ZASCIC 


COBGSK BASIC): 
RETURN UPLI 


COBGSK_PLI): 
RETURN UPLIT BYTE(ZASCIC 


COBGS$K_PASCAL): 
RETURN UPLIT BYTECZASCIC 


COBG$K_C): 
RETURN UPLIT BYTE(ZASCIC 


CDBGSK_RPG): 
RETURN UPLIT BYTE(ZASCIC 


CDBG$K_ADA) 
RETURN 


T BYTECZASCIC 


UPLIT BYTE (ZASCIC 


*MACRO"); 
FORTRAN"); 
*BLISS"); 
*COBOL"); 
*BASIC'); 
*PLI"); 
*PASCAL"); 
"¢*); 
*RPG'); 


"ADA'); 


s-32 V4.0- 
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oe 


RoRSEse 


tt ts 


NOUS 


CINRANG 


TES; 
END; 


“ea eH 

és 4F 

45 49 

4C 41 43 

4E 57 4F 4E 

06 
0024 O1F 
0038 0033 
0016 04 


OUTRANGE): 


43 41 4D O05 1E4 P. ABA: 
52 GF & 7 1EA P.ABB: 
49 4C 4&4 ite P.ABC: 
$8 GF & 18 P.ABD: 
55 41 & 1FE P.ABE: 
33 re : 04 P.ABF: 
53 4 ° 6 6 P.ABG: 
4 1 O20F P.ABH: 
47 50 52 H 0211 P.ABI: 
41 44 41 0215 P.ABJ: 
48 4E 55 07 00219 P.ABK: 
0004 00000 
00000000" EF 9E 0000 
04 AC CF 000 
O1A OOOE 1$ 
3e5 0016 
04 0001E 
62 4 0024 2% 
CB A2 ‘ ° 8 3$: 
D1 A2 ge » 4$: 
D9 =A2 ‘ 5$: 
DF A2 . 6$: 
—E5 A2 ‘ 7$: 
EB A2 9% 41 8$: 
4 45 
EF A2 9E 46 9S: 


5 
18-5 A 
1a-Sep-1 


E 
RETURN UPLIT BYTE(ZASCIC "UNKNOWN'); 


3B¢ 12:95:08 


DBGSPL 
<5>\MA 


| 
| 


AX=11 BLigs-32_V4.0-74 p | 
DEBUG. SRCIDBGLEVEL1 -832; 1 ae of 
| 
| 


IT,NOWRT, SHR, PIC,0 
CRO\ 


<7>\UNKNOWN\ 


wn 
o 
» 
rc 
~~ 
Be Be Be Be Be Be Be Be Be Be Be 


DBGSCODE.NOWRT, SHR, PIC,0 


DBGSLANGUAGE, Save R2 : 1956, 
P.ABK, R : 
LANG ENCODING, #0, #10 ; 2010 | 
4$-1$.- : 
5$-1$,- : 
$-1$,- $ 
$-1$.- : 
8$-1$,- 3 
9$-1$,- 3 
10$-1$,- : | 
11$-1$.- : 
128-18, - : | 
2$-1$ 3 
P.ABK, RO a 
P.ABA, RO > 1983 
P.ABB, RO : $0ne 
rem . 
a - 
P.ABE, RO : 199 
3 #9) 
P.ABF, RO : 201 
: 1 
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GLOBAL ROUTINE DBGSCIS_CONNECTICF (SIGNAL_FLAG) : NOVALUE = 


-o 


— 


'o4¢ 


i FUNCTIONAL DESCRIPTION: 


wm 
rx 


FORMAL PARAMETERS: 
SIGNAL _FLAG - TRUE if called from normal command procesing and 
we should s pre’ warning message on failure. 
FALSE if called from setting up DEBUG initialization 


ooo 


| 
| 
| 
| 
file. In this case just signal informational. | 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
An unsigned integer longword completion code 
COMPLETION CODES: 
| 
1 
| 
| 
| 


MEN (OO OONOYV EW" OOVONOULS Ww 


SSSSSEC RR 
DP AEAXA DAA 


=z 


PREP AAARARARARARE RRR EERE Rotts otto 
a a et ae ak a a a ts 2 8 dt 


WO OOBNOUSWN “OC VOONOUS wo 


a a a tt tn a td a 2) ss tn a a a 4 


069 NONE 
070 
071 SIDE EFFECTS: 
Ore 
07 NONE 
074 
075 —_ 
964 B76 BEGIN 
965 07 
966 078 LOCAL 
967 079 dummy _mess_vect, 
968 080 status, ' Return status 
p44 081 fab_ptr : REF SFAB_DECL, ! ptr to allocated FAB storage 
970 O86 rab_ptr : REF S$RAB_DECL ! at? to allocated RAB storage 
1371 4 ind_com_filesp : REF VECTOR C,BYTE); ! Filespec counted string 
1978 i ind_com_filesp = .dbg$gl_ind_com_file; 
Hb de o8y ! Allocate FAB and RAB storage 
1999 089 fab_ptr = dbg$get_memory ((fab$c_bln + HY ZUPVAL); 
1378 844 rab_ptr = dbg$get_memory ((rab$c_bln + 35)/ ZUPVAL); 
1360 O38 ! Initialize the FAB and the RAB 
teat P 2094 SFAB_INIT (FAB=.fab_ptr, FAC=GET, FNA=.ind_com_filesp + 1, FNS=.ind_com_filesp(0J, 
198 095 DNA=deficf_name, DNS=deficf_size); 
1984 oF $RAB_INIT (RAB=.rab_ptr, FAB=.fab_ptr); 
1986 38 ! Put them on the command input stream 
198 0 


1 


33 


eEESES REL E: 


— —) —) ss a — 4) ts 3 
SeSeeeSSSeSEs 


ptt et tees 


FREE 
fun—0oo 
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5 


dbg$cis_add (.rab_ptr, 0, cis_rab, 0, 0); 

Set up the local define List for the command procedure. 
if NOT dbg$def_pr_entry (dummy_mess_vect) 

THEN ° Pre ' oe -" 


ignal the error. 


RAL ROUTINE 
Lib$Ssignal: ADDRESSING_MODE (GENERAL) ; 
BUILTIN 


aie (.dummy_mess_vect, Lib$Ssignal); 


Open and connect the file 


status = SOPEN (FAB=.fab_ptr); 
IF NOT .status 


BEGIN 
LOCAL 
msg_desc : BLOCK (8,BYTE); 
meg.dosc i dscéu. length) = .fab_ptr(fab$b_fns); 
msg_descldsc$a_pointer] = .fab_ptr(fab$l_fnaJ; 
! Flag Link for removal so we won't try to read from it again 
dbg$gl_cishead(cis$v_rem_flag] = 1; 
e gc ignal.flag 
SIGNAL (shr$_openin + dbg_fac_code, 1, msg_desc, 
Mab ptrlrabsl sts). cfabrorrt fabst seus) 


BEGIN 
SIGNAL (dbg$_unaopnini, 1, nsg.desc. 
neTuRne- rCfab$l_stsi, .fab_ptrlfab$l_stv)); 


END; 
' Connect the RAB to the just opened FAB 


status = SCONNECT (RAB=.rab_ptr); 
IF NOT .status 


LOCAL 
msg_desc : BLOCK (8,BYTE); 
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16-Sep-1984 01:27: AX-11 Bliss-32 V4.0-74 P 8 

Ve-Sep-1986 42:17:08 EDeaUG. SRC SBC EVEL -033; 1 20° 235 
msg.deschdsc$u. length) = .fa -perftab$b.tns];_ x“ ad 
msg_descldsc$a_pointer] = .fab_ptrlfab$l_fnaJl; 


! Flag Link for removal so we won't try to read from it again 

dbg$gl_cishead(cis$v_rem_flag] = 1; 

IF .signal_fla 
endings 


SIGNAL (shr$_openin + dbg_fac_code, 1, msg_desc, 
‘fab perlrabse sts). rfabroere fabsl seu) 


SIGNAL (dbg$_unaopnini, 1, msg_desc, | 
-fab_ptrffab$ _stsi, -fab_ptr(fab$l_stvJ); 
} 


END; 


IF .dbg$gb_def_out Cout_verify] 
THEN “nm. - = ' 


RETURN; 


43 2€ 
6E 69 
67 6€ 


Win 


6A 


icf_message(1); 


i 
| 
! End of dbg$cis_connecticf | 
| 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
47 55 42 45 44 00221 P.ABL: .ASCII \DEBUG.COM\ : | 
08 0022A P.ABM: .BYTE ; 
72 65 74 6€ 65 bos¢8 ASCII \entering\ 3 | 
07 00233 P.ABN: .BYTE 7 : 
69 74 69 78 65 00234 ASCII \exiting\ : 
DEF ICF_NAME= P.ABL | 
DEFICF-SIZE= 9 
ENTER_PHRASE= P.ABM | 
EXIT_PHRASE= P. ABN 
.EXTRN LIBSSIGNAL | 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY DBGSCIS CONNECTICF. Save R2,R3,R4,R5,R6,R7,-; 2043 
R8,R9,RTO,R11 3 
B 000000006 00 9 9002 MOVAB DBGSGL_CISHEAD, R11 ; 
A 900000006 0 9E 0000 MOVAB DBG$GET MEMORY. R10 : | 
9 000000006 0 eb 9919 HOVA L SSIGNAL, RO : 
000000006 06 »D OTA MOVL OD GSGL_IND_COM_FILE. IND_COM_FILESP > 2085 | 
14 0D 1 PUSHL @# + 2089. 
gi FB 3 CALLS #1, DBGSGET_MEMORY : | 
6 D $ MOVL RO. FAB PTR : 
11 DD PUSHL @# : 2090 
01 FB 00028 CALLS #1, DBGSGET_MEMORY ; 


—— 


6 | 
DBGLEVEL1 16-Sep-1984 01:27: AX-11 Bliss-32 V4.0-74 Page 69 
vitae 1oxseh=} 38s 95:95:85 = HOMES Bh isseee ver g os5.1 ’ ad \ 
57 0 00 MOVL. RO, RAB_PTR : 
0050 = 8F 00 6E 60 Be 09 f MOVCS #0, (SPT, #0, #80, (FAB_PTR) ; 2095 ; 
66 5003 F 80 8 § MOVW #20483, (FAB_PTR) : : 
16 Ab 0 0 MOVB #2, 22(FAB_PTR) : : 
1F 6 9 i MOVB #2, 31(FAB”PTR) : ; 
C Ab 01 AB 9E 0004 MOVAB 1(R8), 44(FAB_PTR) : : 
6 a6 00000000' EF 9 904 MOVAB DEFICF_NAME, %8(FAB_PTR) : : 
4 Ab 8 90 0005 MOVB = CIND OM FILESP), 5S2(FAB_PTR) : : 
5 6 9 90 0005 MOVB. #9, 53(FAB_PTR) : ; 
0044 28F 00 6E : 2¢ a00¢6 MOVCS #0. (SP), #0, #68, (RAB_PTR) + 2096 : 
67 4401 i B0 it MOVW #17409, (RAB_PTR) : : 
3c? 6 D0 00068 MOVL FAB_PTR, 60(RAB_PTR) : ; 
7E 7C 0006C CLRO = = (SP) + 2100 ; 
Qi DD 0006E PUSHL #1 : : 
: D4 0007 CLRL.  =(SP) : : 
57 OD 00072 PUSHL RAB_PTR : ; 
0000v CF 05 FB 00074 CALLS #5, DBGSCIS_ADD : ; 
5E DD 00079 PUSHL SP + 2104 | ; 
000000006 00 01 FB 0007B CALLS #1, DBGSDEF_PR_ENTRY : F 
04 50 €8 00082 BLBS 0; 1$ ; F 
69 00 BE FA 0008 CALLG @DUMMY_MESS_VECT, LIBSSIGNAL + 2114 ; 
56 DD 00089 1$: PUSHL FAB_PTR + 2119 F 
000000006 00 01 FB 0008B CALLS #1, SYSSOPEN : ; 
52 59 09 00092 MOVE” = RO. STAT : | : 
3A 52 £8 0009 BLBS STATUS, 3$ : 3120) ; 
04 AE 34 A6 9B 00098 MOVZBW 52(FAB_PTR), MSG_DESC > 2128 : 
08 AE 2c A6 00 Boxe MOVL 44(FAB_PTR), MSG_DESC+4 : 2129 d 
50 6B DO O0A2 MOVL DBGSGL~CISHEAD, RO : 2134 : 
12 AO 01 88 OOOA BISB2 #1, 18TRO) : : 
14 04 AC £9 000A9 BLBC  SIGNAL_FLAG, 2$ : 2136 : 
7E 08 A6 7D OOOAD MOV (FAB PTR), -(SP) > 2139 : 
OC AE 9F 00081 PUSHAB MSG_DESC > 2138 : 
01 DD 00084 PUSHL #1 : ; 
00021098 8F DD 00086 PUSHL #135320 ; : 
69 05 FB 000BC CALLS #5, LIBSSIGNAL ; : 
11° 11 000BF BRB $ ; : 
7E 08 A6 7D 000C1 2$: MOVa (FAB_PTR)Y, =-(SP) 3 2143 d 
OC AE OF O00¢5 PUSHAB MSG_DESC + 2142 ; 
01 odD 000C8 PUSHL 3 3 
00028683 8F DD OOOCA PUSHL #165507 F ; 
66 11 00000 BRB 7$ : : 
57 DD 90002 3$: PUSHL RAB_PTR 3; 2150, ‘ 
000000006 00 gi FB 000D4 CALLS #1, SYSSCONNECT : : 
52 0 D0 00DB MOVL RO, STATUS : ; 
38 52 3 OO00DE LBS status, : 2151 ; 
04 AE 34 AG ; 00E1 MOVZBW 52(FAB.PTR), MSG_DESC : 2157 ; 
08 AE 2c «A600 000E6 OVL  44(FABTPTR), MSG-DESC+4 ; 138 ‘ 
50 68 p OO0EB OVL  DBGSGL~CISHEAD, RO : 216 : 
12 AO 1 0 EE BISB2 #1 R F : 
11 06 AC E OOF BLBC SIGNAL FLAG, 4$ : 2165 ; 
7E 08 A6 7D O0F6 MOVa (FAB_PTR), =(SP) : 3168 
C AE 9F OOOFA PUSHAB MSG_DESC : 167 | : 
1 OO BRED PUSHL # 3 ; 
00021098 8F DD OOODFF PUSHL #135320 : 
F 11 00105 BRB 5$ ; | 


| 
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7E 4. A6 7D 00107 4$: MOVO 8(FAB_PTR), =(SP) ; 171 
C AF 9F 00108 PUSHAB MSG_DESC + 2170. 
DD 001 F PUSHL #1 ~ : | 

9 00028683 F DD 001 PUSHL #165507 : 

5 FB 118 5$: CALLS #5, LIBSSIGNA ; 
A saa 0 . 119 6$: BLBC DBG$GB_DEF OuT+2 : 176 
0000000 EF 3 9 MOVAB ENTER PHRASE, phase + 2178 
7E A6 9A $ A MOVZBL 52(FABTPTR), -(SP) : 
50 0D 001 £ USHL PHRASE ; 
DD 001 PUSHL #3 : 

00028088 8F DD 001 2 PUSHL #163979 : 

9 5 FB 001 7$: CALLS #5, LIBSSIGNAL : 
04 00138 8$: RET + 2182 


; Routine Size: 316 bytes, Routine Base: DBGSCODE + OAAS 


6 
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4 ! ; } GLOBAL ROUTINE dbg$cis_remove (exit_flag) : NOVALUE = 

3 Spe 185 1 ! FUNCTIONAL DECSRIPTION: 

; 2075 1 1! Removes the fop Link from the command input stream and delete the 
3 O78 1 1} storage for it. If the Link has additional dynamic storage related to 
3; 207 1 8 ;! it, such as a RAB, input buffer etc., that storage is freed also. 
; 2078 1 1! ote = this routine now just calls the routine DBGSNCIS_REMOVE in 
; 2079 1 1! the module DBGNEXCTE. 

; 2080 191 1! 

3; 2081 13§ 1 ! FORMAL PARAMETERS: 

; 208 193 1! 

; 208 1946 1! exit flag - TRUE if called from EXIT command. 

; 2084 195 1! 

3; 2085 138 1 ! IMPLICIT INPUTS: 

3 +] 197 1! The head of the command input stream 

; 208 198 1! 

; 2088 199 1 ! IMPLICIT OUTPUTS: 

; 2089 00 1! None 

3; 2090 01 1! 

3; 2091 o 1 ! ROUTINE VALUE: 

3 O36 03 1! None 

3; 209 06 1! 

3 2094 05 1! SIDE EFFECTS: 

3; 2095 06 1! The head of the command input stream is reset to what was the 

3; 2096 207 1! “next’’ Link before this routine was called. If SET OUTPUT VERIFY, 
; 2097 $o8 +! then a message is generated saying we are exiting the indirect 

; 2098 09 1! command file. 

3; 2099 10 1 !=- 

3; 2100 11°=«1 

: 2101 \¢ BEGIN 

3 Ie 1 

: 210 14 LOCAL 

3 pe 216 message_vect; ! Dummy message argument vector. 

3 2106 i$ ' Call the ‘new Sebupeer routine. This returns a condition code 

3; 2107 2218 ! of ‘severe’, together with an error message vector, if something 

3; 2108 $33 ! goes wrong. 

3; 2109 20 : 

3; 2110 221 IF NOT dbg$ncis_remove (.exit_flag, message_vect) 

3 2111 $56 THEN 

; 146 22 BEGIN 

3 BF 2 : Set up to signal error. 

3 2115 3 $ exten, ROUTINE 

; 116 LibSsignal : ADDRESSING_MODE (GENERAL); 

3; 211 ‘ 8 BUILTIN 

; 2118 9 callg; 

3 2119 0 callg (.message_vect, lLib$signal); 

; 130 1 ‘ END; 

3: 2121 2 END; 


-ENTRY DBGSCIS_REMOVE, Save nothing 
SUBL2 #4, SP 


Page 71 
29° (93) 


: 2183 


sat 


; Routine Size: 


29 bytes, 


000000006 
000000006 


§ 


Routine Base: DBGSCODE + OBE! 


~$ee7190e 01:27:02 yaReNy OLigs-82_ 4.0 


SP 
HL EXIT FLAG 

CALLS #2, BBGSNCIS_REMOVE 

BLES = «RO. 1 

cALLG aMESSAGE_VECT, LIBSSIGNAL 
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1e-geen 138s 93:95:03 «— HRaLS Bhissaee ever d 2s3.. 9 26) 
GLOBAL ROUTINE dbg$cis_add (pointer, length, t 
° = Pepeat. count’ while cleuse): NOVALUE = 


1 


é 
5 
; 
9 


1 
i 
i 
i 
i 
; pointer - The address of either a buffer or a RAB to be placed 
: in the dsc$a_pointer field of the new Link. 
: length - The Length of the above buffer. (0 for RAB) 
5 : type - The type of the Link to be added 
: repeat_count - For a Link of tree “doloop"’ creased during processing 
4 . of REPEAT N TIMES ( ... ) command], this represents the 
; number of remaining iterations. 
4 : while_clause = For a Link of type ‘while’, this points to a counted 
3 ascii string with the while clause. 
5 ! IMPLICIT INPUTS: 
2 } The head of the command input stream 
5 ! IMPLICIT OUTPUTS: 
Re noms 
5 ' ROUTINE VALUE: 
5 : None 
6 ; 
6 : 
6 : 
6 : 


9 
40 
re 
“8 
44 
rh 
of 
“9 
50 
3 
38 
54 
32 
57 
58 
59 
60 
e 
68 
64 
65 
0 
4 
78 
7%4 


Nw 


'o4¢ 


' FUNCTIONAL DESCRIPTION: 

Adds a Link to the command input stream 
Note = this routine now just calls the routine DBGSNCIS_ADD in 
the module DBGNEXCTE. 


FORMAL PARAMETERS: 


SIDE EFFECTS: 
None 


message_vect; ! Holds message argument vector. 
DBGSNCIS_ADD will return ‘success’ (1) if all goes well. 


IF NOT dbg$ncis_add (.pointer, .length, .type, 
-repeat_count, .while_clause, 0, 

message_vect) 

THEN 

BEGIN 

Set up to signal error. 


EXTERNAL ROUTINE 
Lib signal : ADDRESSING_MODE (GENERAL); 


Soh ubcnt SRR R RRR ES 
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callg; 
golle (,message_vect, LibSsignal); 


wr 


END; 


—_—_— 


Decay etal Me acs Se) 
ms ? stars" Behe Save nothing tm 
CLR =(SP) 
HO : a pe tes aR 
000000006 ; F CALL GSNCIS_ADD 
000000006 00 BE FA CALLG amESSAGE_VECT, LIBSSIGNAL i 
18: RE 


; Routine Size: 39 bytes, Routine Base: DBGSCODE + OBFE 
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1 
1 
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1 
1 
1 
1 
1 
1 
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CERRaN ES SESSSPOSS 


Sundiustie2ed 
Ounfun—0o0@ 


Name 


DBGSPLIT 
DBGSCODE 
DBGSOWN 


ooo 


PROPOPORINORY —  -t t t 


SELSSEASLESSELIEA 


SFAR GS 


MEWN O00 NOUS WN —O0O@ 
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1 MACRO 
i IF Ste btoeel Pes NEQ 0 
1 a. 
1 BEGIN 
1 IF NOT 
1 ( e ZLENGTH GTR 1 
1 HEN dbg$nout_info (code, ZREMAINING) 
1 ELSE dbg$nout-info (code) 
1 THEN 
1 BEGIN 
: «Signal_flag = a ZLENGTH GTR 1 
} ELS dbgSnmake_arg_vect (code, %REMAINING) 
1 dbg$nmake_arg_vect (code)); 
: . RETURN sts$k_severe; 
1 END 
1 ELSE 
1 BEGIN 
1 IF ZLENGTH GTR 1 
1 THEN 
1 SIGNAL (code, ZREMAINING) 
1 ELSE 
1 SIGNAL (code) 
; END %; 
1 MACRO 
; one t “7: (param_num) = 
; signal_flag; 
; signal_flag = fF gctuslcount () GTR param_num 
1 actualparameter (actualcount()) 
1 ELSE 
: 0) &; 
1 END 
0 ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Bytes Attributes 
571 WOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
3199 NOVEC,.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(Q) 
2 NOVEC, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
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